====== File::Next ======
File検索用

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

===== 例 =====
一覧を表示する((sayを使うためにuse 5.010してみました。普通はprint $file,"\n";))

<code perl>
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;
}
</code>

逆順でSortしてみたり

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

Filterしてみたり

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

合わせ技にしてみたり
<code perl>
my $files = File::Next::files({ sort_files => \&File::Next::sort_reverse,file_filter => sub { /\.txt$/ }} , $path);
</code>

と、いろいろできそうです。
===== 参考 =====
<del>[[http://cpan.uwinnipeg.ca/htdocs/File-Next/File/Next.pm.html|File::Next - File-finding iterator]]</del>

[[http://search.cpan.org/~petdance/File-Next-1.12/Next.pm|File::Next - File-finding iterator]]