Solusi Perl
Perl dapat melakukannya. Secara umum garis penghitungan berfungsi seperti itu:
$ perl -ne 'END{print $.}' input.txt
Jika kami ingin mengecualikan semua baris kosong, kami akan melakukan sesuatu seperti ini:
$ perl -ne '$c+=1 if not /^$|^\s+$/;END{print $c}' input.txt
Katakanlah kita memiliki file input seperti ini
$ cat -n input.txt
1 Cat; Dog; Squirrel
2 ORGANISM Animalus terrus
3
4 Sequence: ACGTACGTACGTACGTACGTACGTACGTACGTACGTACGTACGTACGT
5
Ada total 5 baris, 2 baris kosong. Perintah yang kita miliki akan menampilkan:
$ perl -ne '$c+=1 if not /^$|^\s+$/;END{print $c}' input.txt
3
Peningkatan multi-file
Ini berfungsi baik untuk satu file. Jika kita ingin membuatnya berfungsi pada banyak file, kita dapat melakukan sesuatu seperti ini:
$ 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