perl: ディレクトリ中のファイルすべてを処理 – プログラミング – Home

perl: ディレクトリ中のファイルす...
 
通知
すべてクリア

perl: ディレクトリ中のファイルすべてを処理


hiro
 hiro
(@hiro)
ゲスト
結合: 23年前
投稿: 40
 

初歩的な質問で申し訳ございません。
どうやってもエラーが出てしまうので、こちらでアドバイスを頂けると幸いです。

ディレクトリ中のテキストファイルすべてに対し同じ処理をするプログラムを
動かしたのですが、No such fileと出てしまいます。

具体的には、

my $dirname='.';
opendir(DIR, $dirname) or die $dirname: $!;

while (my $dir=readdir(DIR))
{next unless (-f $dir);
next unless ($dir=~/\.txt$/);
print $dir, \n;

open(FILE, '$dir') or die $dir: $!;

と書いており、printのところではきちんとテキストファイル名が表示されます。
それが、openのところでは no such fileとなってしまいます。

$dirの代わりにファイル名を指定してやれば動きますが、
それだと100以上もあるテキストファイルを処理するには時間がかかってしまいます。

もうすでにここで2日以上足止めを食らっておりまして、
大変恐れ入りますが、どなたかPerl初心者の私に救いの手を差し伸べていただけると
大変有難く存じます。

よろしくお願いいたします。


引用解決済
トピックタグ
Web

返信する

投稿者名

投稿者メールアドレス

タイトル *

プレビュー 0リビジョン 保存しました
共有:
タイトルとURLをコピーしました