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

最新推荐文章于 2022-11-23 12:19:38 发布

latalata

最新推荐文章于 2022-11-23 12:19:38 发布

阅读量3.1k

点赞数

CC 4.0 BY-SA版权

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

本文链接：https://blog.youkuaiyun.com/latalata/article/details/3704406

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

 
 #!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;
my @DIRS;
#get System Type
if ( $^O =~ /MSWin32/ ) 
{ 
   
    $SYSTEM = "NT";
    $separator = 