发布时间:2019-07-31 08:46:50
#!/usr/bin/perlrequire "find.pl";$path=$ARGV[0];&find($path);sub wanted{if(-f $name){print $name."\n";}}用法: show.pl C:/test/将C:/test下的所有文件以及所有子文件夹里面的所有文件列出[不列目录]