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
創作者介紹

創造心理的感動

gisanfu 發表在 痞客邦 PIXNET 留言(0) 人氣()