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

このWIKIを編集するにはパスワード入力が必要です

認証パスワード