Perl ファイル一覧取得
関数の使用例
my @files = GetFiles("./");
関数
sub GetFiles {
# ディレクトリを開く
my ($directory, $recursive) = @_;
opendir(D, $directory);
# ファイル一覧を作成する
my @files = ();
foreach(readdir(D)) {
next if /^\.{1,2}$/;
push(@files, $_);
}
# ディレクトリを閉じる
closedir(D);
# ファイル一覧を返す
return @files;
}
- 最終更新:2013-06-10 11:57:01