perl递归遍历文件夹

my $dir = '/test/test.pl';this #my $dir = '/test'; test sub printdir{     my $dir = shift;     if(-f $dir){         print "$dir\n";         return;     }     if(! -d $dir){        print "this is not a

>>阅读原文<<