目的:统计指定文件的行数。
one line code on command line :
更改解决方案参见:
[url]http://bbs.chinaunix.net/archiver/?tid-521001.html[/url]
原文:
[url]http://faq.perl.org/perlfaq5.html#How_do_I_count_the_n[/url]
$filename = 'test.file';
$lines = 0;
open(FILE, $filename) or die "Can't open `$filename': $!";
while (sysread FILE, $buffer, 4096) {
$lines += ($buffer =~ tr/\n//);
}
close FILE;
print $lines;
one line code on command line :
perl -ne "print $. if eof" filename
更改解决方案参见:
[url]http://bbs.chinaunix.net/archiver/?tid-521001.html[/url]
原文:
[url]http://faq.perl.org/perlfaq5.html#How_do_I_count_the_n[/url]