使用Perl(不使用wc)来计算文本文件的字符,单词和行数的一个好/最好的方式是什么？
解决方法
以下是perl代码.计数单词可能有点主观,但我只是说这是不是空格的任何字符串.
open(FILE,"<file.txt") or die "Could not open file: $!";
my ($lines,$words,$chars) = (0,0);
while (<FILE>) {
$lines++;
$chars += length($_);
$words += scalar(split(/\s+/,$_));
}
print("lines=$lines words=$words chars=$chars\n");