Ваш Perl
работает медленно из-за того, что для чтения файла используется цикл for
. Вы действительно должны использовать цикл while
, так как цикл for
загружает весь файл в память за один раз. Вот почему для печати $count требуется целая вечность.
perl -ne '
print,next if /^".*"$/m or /"$/m;
chomp, $_ .= <>, redo unless eof;
' gene.data