Giải pháp Perl
Perl có thể làm điều đó. Nói chung, các dòng đếm hoạt động như vậy:
$ perl -ne 'END{print $.}' input.txt
Nếu chúng tôi muốn loại trừ tất cả các dòng trống, chúng tôi sẽ làm một cái gì đó như thế này:
$ perl -ne '$c+=1 if not /^$|^\s+$/;END{print $c}' input.txt
Giả sử chúng ta có tệp đầu vào như thế này
$ cat -n input.txt
1 Cat; Dog; Squirrel
2 ORGANISM Animalus terrus
3
4 Sequence: ACGTACGTACGTACGTACGTACGTACGTACGTACGTACGTACGTACGT
5
Có tổng cộng 5 dòng, 2 dòng trống. Lệnh chúng ta sẽ xuất ra:
$ perl -ne '$c+=1 if not /^$|^\s+$/;END{print $c}' input.txt
3
Cải thiện nhiều tập tin
Điều này hoạt động tốt cho một tập tin duy nhất. Nếu chúng ta muốn nó hoạt động trên nhiều tệp, chúng ta có thể làm một cái gì đó như thế này:
$ 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