摘要：
1、使用find
use strict;
use File::Find;
my @path = 'e:/xampp';
push (@path,'e:/xampp');
push (@path,'d:/eclipse-reporting-galileo-SR2-win32');
sub wanted {
if ( -f $File::Find::name ) {
if ( $File::Find::name =~ /\.xml$/ ) {
print "$File::Find::name\n";
}
}
}
find( \&wanted, @path ); 阅读全文
