使用perl将包含特定已知字符串的那些文件的内容保存在单个.txt或.tmp文件中

#!/usr/bin/perl

use strict;
use warnings;

# 指定要搜索的目录
my $dir = '/path/to/directory';

# 指定要保存结果的文件路径
my $output_file = '/path/to/output.txt';

# 指定要搜索的字符串
my $search_string = '特定已知字符串';

# 打开输出文件，如果文件不存在则创建
open(my $output_fh, '>', $output_file) or die "无法打开文件 '$output_file'：$!";

# 递归遍历目录中的所有文件
find_files($dir);

# 关闭输出文件
close($output_fh);

# 递归遍历目录中的所有文件
sub find_files {
    my ($dir) = @_;

    opendir(my $dh, $dir) or die "无法打开目录 '$dir'：$!";
    my @files = readdir($dh);
    closedir($dh);

    foreach my $file (@files) {
        next if ($file eq '.' or $file eq '..');

        my $path = "$dir/$file";

        if (-d $path) {
            # 如果是目录，则递归处理子目录
            find_files($path);
        } elsif (-f $path) {
            # 如果是文件，则读取文件内容并搜索指定字符串
            open(my $fh, '<', $path) or die "无法打开文件 '$path'：$!";
            my $content = do { local $/; <$fh> };
            close($fh);

            if ($content =~ /$search_string/) {
                # 如果文件内容包含指定字符串，则将内容写入输出文件
                print $output_fh "文件路径：$path\n";
                print $output_fh "文件内容：\n$content\n";
                print $output_fh "------------------------\n";
            }
        }
    }
}