【Perl 】初心者コーナーPart8

[0504 名無しさん＠お腹いっぱい。 01/11/29 22:30 ID:???]

ファイルの行数をカウントするエレガントな方法を教えて下さい

ぼくは下記のようにやっているのですが，すっごく厨房ぽいです


#!/usr/local/bin/perl
open FILE, $file or die "can't open $file:$!\n";

$cnt = 0;
while(<FILE>) {
$cnt++;
}

close FILE;

print "$fileの行数は$cnt行です\n";