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

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

总结

以上是内存溢出为你收集整理的Perl初级教程 （5） 遍历文件夹内指定扩展名文件，查找匹配关键字的输出。全部内容，希望文章能够帮你解决Perl初级教程 （5） 遍历文件夹内指定扩展名文件，查找匹配关键字的输出。所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。