如何使用Perl脚本按批次替换文本文件中多次出现的指定字符串

该需求完全可实现，核心逻辑是通过全局计数器记录匹配次数，每匹配满2次就切换下一个替换值，调整后的可运行脚本如下：

#!/usr/bin/perl -w
use strict;

# 配置项：替换值列表、目标文件路径、每N次匹配切换一次替换值
my @replace_vals = qw(dog51 dog23 dog77 dog95);
my $file = 'C:\Temp\test.txt';
my $switch_every = 2;

# 匹配计数器
my $match_count = 0;

rename($file, $file . '.bak') or die "备份文件失败: $!";
# 推荐使用三参数open写法，安全性更高
open(IN, '<', $file . '.bak') or die "读取备份文件失败: $!";
open(OUT, '>', $file) or die "写入新文件失败: $!";

while(<IN>)
{
    # 使用e修饰符执行代码动态计算替换值
    $_ =~ s/cat\d+/$replace_vals[int($match_count++ / $switch_every)]/ge;
    print OUT $_;
}

close(IN);
close(OUT);

关键逻辑说明 #

• 匹配规则用cat\d+替代原有的cat[0-9]，适配cat01、cat32这类后缀为多位数字的匹配场景
• 替换语句增加e修饰符，支持执行代码动态生成替换值：通过int($match_count++ / $switch_every)计算当前应该使用的替换值索引，前2次匹配索引为0取第一个替换值，接下来2次索引为1取第二个替换值，以此类推
• 可通过调整$switch_every变量自定义每多少次匹配后切换替换值，无需修改核心替换逻辑

运行上述脚本后，输出结果与你期望的替换后文件内容完全一致。

内容的提问来源于stack exchange，提问作者Dora