在perl的所有子目录中使用特定字符串的特定文件的grep

use strict;
use warnings;
use File::Find;

# 定义特定文件类型的匹配规则
my $file_pattern = qr/\.txt$/i;

# 定义特定字符串的匹配规则
my $string_pattern = qr/special_string/i;

# 定义结果文件名
my $result_file = "result.txt";

# 打开结果文件
open(my $fh, '>', $result_file) or die "Cannot open file '$result_file' for writing: $!";

# 定义处理每个文件的回调函数
sub process_file {
    my $file = $_;
    
    # 判断是否为特定文件类型
    return unless $file =~ $file_pattern;
    
    # 打开文件
    open(my $file_fh, '<', $file) or die "Cannot open file '$file' for reading: $!";
    
    # 逐行读取文件内容
    while (my $line = <$file_fh>) {
        # 匹配特定字符串
        if ($line =~ $string_pattern) {
            # 打印匹配的行内容
            print $line;
            
            # 或者将匹配的行内容保存到结果文件中
            print $fh $line;
        }
    }
    
    # 关闭文件
    close($file_fh);
}

# 遍历perl的所有子目录
find(\&process_file, "./");

# 关闭结果文件
close($fh);