Perl初级教程 （5） 遍历文件夹内指定扩展名文件，查找匹配关键

#!/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程序所在的全路径。