目次

File::Next

File検索用

指定以下を再帰的に検索してくれる

例

一覧を表示する1) 

use strict;
use warnings;
use 5.010;
use utf8;
use File::Next;
 
my $path = 'c:/users/public/music' ;
my $files = File::Next::everything($path);
while ( defined ( my $file =$files->()) ) {
     say $file;
}

逆順でSortしてみたり 

my $files = File::Next::files({ sort_files => \&File::Next::sort_reverse} , $path);

Filterしてみたり 

my $files = File::Next::files({ file_filter => sub { /\.txt$/ }} , $path);

合わせ技にしてみたり 

my $files = File::Next::files({ sort_files => \&File::Next::sort_reverse,file_filter => sub { /\.txt$/ }} , $path);

と、いろいろできそうです。

参考

File::Next - File-finding iterator

File::Next - File-finding iterator

1)
sayを使うためにuse 5.010してみました。普通はprint $file,“\n”;