#!/usr/bin/perl -W
#
# File: find.pl
# License: GPL-2
use 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 = $ARGV[1] ;
opendir(DH, "$Dir") or die "Can't open: $!\n" ;
my @list = grep {/$Ext$/ && -f "$Dir/$_" } readdir(DH) ;
closedir(DH) ;
chdir($Dir) or die "Can't cd dir: $!\n" ;
#遍历文件夹,定义文件句柄。
foreach my $file (@list){
open(FH, "$file") or die "Can't open: $!\n" ;
while(<FH>){
# Perl 本身是大小写区别的,而且对于关键字搜索是借助于正则表达式来完成的。
if(<FH> =~ /$str2/i){
print "$file:\n" ;
}
}
print "\n";
close(FH) ;
}
# 在CMD模式下调用时切记使用perl程序所在的全路径。