Perlコーディング初心者質問スレ Part 57

Perlコーディング初心 ..

125:nobodyさん
08/03/14 22:34:42 exCIvuwa
Perl初心者です。宜しくお願いします。

ディレクトリ探索し、ディレクトリの中の「.txt」をファイルを見つけたら
その行数を出力したいのですが、「open(FH, "$_") or die;」のところで
落ちます。何がいけないのでしょうか?

---ここから
use File::Find;

my $dir = 'TestDir';

find(\&print_file, $dir);

sub print_file {
　　$_ = $File::Find::name;

　　if (/.+\.txt/) {
　　　　print "$_ \t";

　　　　open(FH, "$_") or die;
　　　　1 for <FH>;
　　　　print $. . "行\n";
　　　　close(FH);
　　} else {
　　　　print "$_ \n";
　　}
}

次ページ