Question

有没有perl高手，解答一下

我要做的是找一个文件同类型文件，统计文件里面的行数，请看下面，但执行的结果总是统计最后一个文件名的行数。请问咋样显示出每个文件行数呢？求解
#! /usr/bin/perl
my @filename =glob("*.txt");
foreach(@filename){
#shift(@filename);
open TFILE, "@filename";
#print @filename;
while(<TFILE>){
$cnt++;
}
print "$cnt.\n";
}

Answer 1

个人感觉应该这样写
#! /usr/bin/perl
my @filename =glob("*.txt");
foreach my $file(@filename){
open TFILE,"$file";
while(<TFILE>){
$cnt++;
}
print $cnt."\n";
}

Answer 2

#! /usr/bin/perl
my @filename =glob("*.txt");
foreach(@filename){
open TFILE, $_;
while(<TFILE>){
$cnt++;
}
close TFILE;
print "$cnt.\n";
}