Perl：查找并替换多个文本文件中的特定字符串

Perl：查找并替换多个文本文件中的特定字符串

perl
#!/usr/bin/perl
use strict;
use warnings;
# 要替换的字符串和替换后的字符串
my $search = "old_string";
my $replace = "new_string";
# 需要处理的文件列表
my @files = ("file1.txt", "file2.txt", "file3.txt");
# 遍历每个文件
foreach my $file (@files) {
    # 打开文件
    open(my $fh, '<', $file) or die "无法打开文件 $file: $!";
    
    # 读取文件内容
    my @lines = <$fh>;
    
    # 关闭文件
    close($fh);
    
    # 替换字符串
    foreach my $line (@lines) {
        $line =~ s/$search/$replace/g;
    }
    
    # 打开文件以写入替换后的内容
    open($fh, '>', $file) or die "无法打开文件 $file: $!";
    
    # 写入替换后的内容
    print $fh @lines;
    
    # 关闭文件
    close($fh);
}
print "替换完成！\n";