http://search.cpan.org/~dopacki/File-List-0.3.1/List/List.pm
use File::List;
my $search = new File::List("/usr/local");
$search->show_empty_dirs(); # toggle include empty directories in output
my @files = @{ $search->find("\.pl\$") }; # find all perl scripts in /usr/local
全站熱搜
留言列表