发布时间：2013-07-08 12:37:44

脚本功能类似于linux的find遍历目标目录下的所有目录以及文件，找到想要的文件与目录#!/opt/ActivePerl-5.12/bin/perluse strict;use Cwd;my $from_dir = shift @ARGV; #从什么目录开始查找my $tag = shift @ARGV; #要查找目录或者文件名&search($from_dir,$tag);sub search{my $source_dir = shift.........【阅读全文】