Perl中递归遍历文件夹，寻找包含某个字符串的文件

最新推荐文章于 2022-07-22 19:16:00 发布

latalata

最新推荐文章于 2022-07-22 19:16:00 发布

阅读量3k

点赞数

分类专栏： Perl学习文章标签： perl system file linux c

本文链接：https://blog.csdn.net/latalata/article/details/3704406

版权

这篇博客介绍了如何在Perl中通过递归遍历文件夹来查找包含特定字符串的文件。首先，它获取命令行参数，然后根据操作系统类型（Windows NT或Linux）设置路径分隔符。接着，它遍历指定目录及其子目录，检查每个文件是否匹配给定的文件模式，并在文件内容中搜索目标字符串。如果找到匹配项，它将打印文件名和行号。

摘要由CSDN通过智能技术生成

 
 #!C:/perl/bin
use strict;
use warnings;
our %params = ();
&getParams();
die "lack params error/n" if(!exists($params{
   "dir"}) || !exists($params{
   "strpattern"}));
my $SYSTEM;
my $separator;
my $file;
my $recursive; 
my $dir;
my $filepattern;
my $strpattern