Розчин Perl
Perl може це зробити. Загалом підрахунок рядків працює так:
$ perl -ne 'END{print $.}' input.txt
Якщо ми хочемо виключити всі порожні рядки, ми зробимо щось подібне:
$ perl -ne '$c+=1 if not /^$|^\s+$/;END{print $c}' input.txt
Скажімо, у нас є такий вхідний файл
$ cat -n input.txt
1 Cat; Dog; Squirrel
2 ORGANISM Animalus terrus
3
4 Sequence: ACGTACGTACGTACGTACGTACGTACGTACGTACGTACGTACGTACGT
5
Всього 5 рядків, 2 порожніх рядка. Команда, яку ми маємо, виведе:
$ perl -ne '$c+=1 if not /^$|^\s+$/;END{print $c}' input.txt
3
Вдосконалення декількох файлів
Це добре працює для одного файлу. Якщо ми хочемо, щоб він працював над декількома файлами, ми можемо зробити щось подібне:
$ perl -ne '$c+=1 if not /^$|^\s+$/;printf("%d %s\n",$c,$ARGV) and $c=0 if eof' input.txt /etc/passwd
3 input.txt
52 /etc/passwd