こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

perl cgiでサブディレクト内のファイル名取得

perl cgiでサブディレクト内のファイル名取得

$dir="../01/";
$id_c="*.c";
$file_c=$dir.$id_c;
@InputFileAllBuf_c = glob($file_c);
$InputFile = $fileAll;
open IN,"$InputFile";
@InputAll = <IN> ;
close(IN) ;
のようにすると、指定dir内のファイル名が
取得できます。
さらに、指定dirの直下たけでなく、
指定dir内のサブディレクトも、
ファイル名を取得する方法ありますか?
よろしくお願いします。

投稿日時 - 2001-04-10 13:17:34

QNo.62036

困ってます

質問者が選んだベストアンサー

Perlカテゴリがあるので、そちらのほうが適切な回答が得られるとおもいますが。

File::Findモジュールを使うと、簡単に書けます。
モジュールを使わないなら、opendirでぐるぐるまわす方法もあります。

ex)
use File::Find;

finddpth(\&list, "$dir");
exit;

sub list{
print $File::find::name, "\n";
}

投稿日時 - 2001-04-10 21:14:48

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問