पर्ल समाधान
पर्ल वह कर सकता है। सामान्य रूप से गिनती की रेखाएँ इस प्रकार काम करती हैं:
$ 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