Path::Class

提供: dsk's note
2015年5月11日 (月) 17:02時点におけるDsk (トーク | 投稿記録)による版 (ページの作成:「#ディレクトリ配下にあるファイルリストを作成(再帰的) <syntaxhighlight lang="perl"> my @files; Path::Class::Dir->new("/home/dsktnk/www/")->recur...」)

(差分) ←前の版 | 最新版 (差分) | 次の版→ (差分)
移動: 案内検索
  1. ディレクトリ配下にあるファイルリストを作成(再帰的)
my @files;
Path::Class::Dir->new("/home/dsktnk/www/")->recurse(
    callback => sub {
        my $file = shift;
        return if $file->is_dir; #ディレクトリはスキップ
        push(@files, $file);
    },
);