Perlで、テキストファイルの行数を数える(カウントする)には
結局いろんな人のいろんなやり方を見たあげく、
perlfaq5に公式(?)のやり方が載っているのに気づいた。
$lines = 0;
open(FILE, $filename) or die "Can't open `$filename': $!";
while (sysread FILE, $buffer, 4096) {
$lines += ($buffer =~ tr/\n//);
}
close FILE;どれが一番速いのかはわかりません。。。
参考：
カテゴリ:
Perl