2010年7月13日火曜日

Perlで特定のディレクトリ(ホルダ)のファイルを取得する

Perlで指定したフォルダ内のファイルの数を数えるプログラムです。 意外に覚えて置くと便利です。


$dir = "./";

$dir =~ s/\/$//;
opendir DIR, $dir;
my @files =
    map { $_->[0] }
    sort { $a->[1] <=> $b->[1] }
    map { [ $_, -M "$dir/$_" ] }
    grep ( /^[^.]/, readdir DIR );
close DIR;


foreach(@files){

print $_."\n";
}

0 件のコメント:

コメントを投稿