File検索用

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

一覧を表示する¹⁾

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