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
arrow
arrow
    全站熱搜

    付爸爸 發表在 痞客邦 留言(0) 人氣()