摘要:
#!/usr/bin/perl -W## File: find.pl# License: GPL-2use strict;use warnings;use File::Find;#定义要匹配的关键字my $str1="20090414095014";my $str2="Report";#定义键盘接收输入,第一个为文件夹路径,第二个为文件扩展名。die "Usage: $0 <dir> <extion>\n" unless @ARGV == 2;my $Dir = $ARGV[0] ;my $Ext = $ARG 阅读全文