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

>>阅读原文<<