Perlコーディング初心 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
123:nobodyさん 08/03/14 14:50:45 dankogaiがエントリ書いてた ttp://blog.livedoor.jp/dankogai/archives/51017983.html 124:nobodyさん 08/03/14 15:48:58 >>111 >>113-122 http://www.kt.rim.or.jp/~kbk/perl-5.8/perlfaq4.html#how_can_i_tell_whether_a_certain_element_is_contained_in_a_list_or_array 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"; 　　} }

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4953日前に更新/211 KB
担当:undef