Perl子程序内文件读写异常：无法完成全量匹配替换求助

让我来帮你拆解代码里的核心问题，一步步梳理清楚并给出修复方案：

核心错误点 #

1. 共享文件句柄导致读取逻辑混乱 #

主程序和replace子程序共用同一个INPUT_FILE文件句柄，主程序遍历文件时调用replace，replace会从当前文件指针位置继续读取，读完回到主程序后，主程序的循环会接着从replace结束的位置继续。这种设计很容易引发行丢失、重复处理的问题，尤其是当replace里的return条件（遇到空行）不满足时，后续的TASK_CELL_NAME行根本不会被主程序处理。

2. 正则匹配逻辑错误，无法命中目标行 #

在处理X|VALUE = Y格式的行时，你用if ($rpl_sub =~ /^$line/)匹配重放文件的行——这里的$line是输入文件里的完整行（包含新的Y值），但重放文件里的行是X|VALUE = OLD_Y，自然完全匹配不上，也就不会输出预期的111:日志。正确的逻辑应该匹配行的前缀部分（X|VALUE =），而非完整行。

3. 全局变量$rpl引发的作用域污染 #

用our $rpl声明全局变量，会导致多个replace调用之间互相干扰（比如第二个cell处理时，$rpl可能还保留着第一个cell的文件名），应该改用局部变量隔离每个cell的处理上下文。

4. 文件修改方式不合理 #

用+<模式直接打开文件修改，这种方式在处理行替换时极易出错（比如行长度变化会覆盖后续内容）。正确的做法是先将文件内容读入内存，修改后再重新写入。

5. 冗余的变量赋值 #

my $cell = $_[0];放在while循环内部，每次循环都会重复赋值，虽然不影响功能，但属于冗余代码，应该移到循环外部。

修正后的代码示例 #

主程序修改（解决文件句柄共享问题） #

my @cell_names;
open(INPUT_FILE, "<$ip_file") || die "\n!!!ERROR OPENING INPUT FILE. EXITING SCRIPT!!!\n";

# 将所有行读入数组，避免共享句柄的问题
my @all_lines = <INPUT_FILE>;
close INPUT_FILE;

my $i = 0;
while ($i <= $#all_lines) {
    my $line = $all_lines[$i];
    chomp $line;

    # 格式检查逻辑保留
    if ($line =~ /(.*) =\n/ || $line =~ /(.*) =\s+\n/ || $line =~ /(.*) = \s+(.*)/) {
        $mw->messageBox(-message=> "\nFormat not correct on line ".($i+1)." of input file. Exiting script\n");
        exit;
    }

    if ($line =~ /^TASK_CELL_NAME\|VALUE = (.*)/) {
        my $cell_name = $1;
        chomp $cell_name;

        # 优化cell名称去重逻辑，去掉多余空格
        unless(grep( /^$cell_name$/, @cell_names )) {
            push @cell_names, $cell_name;

            # 收集当前cell对应的所有行，直到下一个TASK_CELL_NAME或文件结束
            my @cell_lines;
            $i++;
            while ($i <= $#all_lines && $all_lines[$i] !~ /^TASK_CELL_NAME\|VALUE =/) {
                push @cell_lines, $all_lines[$i];
                $i++;
            }

            # 传递具体行数据给replace，不再依赖全局句柄
            replace($cell_name, \@cell_lines);
        } else {
            $i++;
        }
    } else {
        $i++;
    }
}

replace子程序修改（修复匹配逻辑与文件处理） #

sub replace {
    my ($cell, $cell_lines) = @_; # 接收cell名称和对应行的数组引用
    my $rpl;

    # 先找到当前cell对应的重放文件名
    foreach my $line (@$cell_lines) {
        if ($line =~ /^TASK\|VALUE = (.*)/ ) {
            my $task = $1;
            chomp $task;
            $rpl = $cell . '_' . $task . '_bunch_rpl';
            print "000: $rpl\n";
            last; # 找到后立即退出循环
        }
    }

    # 检查重放文件是否存在
    unless ($rpl && -f $rpl) {
        die "\ncannot find rpl file: $rpl\n";
    }

    # 将重放文件内容读入内存
    open(my $replay_fh, "<", $rpl) || die "\ncannot open $rpl\n";
    my @replay_lines = <$replay_fh>;
    close $replay_fh;

    # 遍历当前cell的行，修改重放文件内容
    foreach my $line (@$cell_lines) {
        chomp $line;

        if ($line =~ /^(.*)\|VALUE = (.*)/ ) {
            my $ip_var = $1;
            my $ip_val = $2;
            chomp $ip_var;
            chomp $ip_val;

            # 匹配行前缀，找到需要替换的行
            foreach my $rpl_line (@replay_lines) {
                if ($rpl_line =~ /^$ip_var\|VALUE =/) {
                    $rpl_line = "$ip_var|VALUE = $ip_val\n";
                    print "111: $ip_val\n";
                }
            }
        } elsif ($line =~ /^\s*$/) {
            print "\n";
            next;
        }
    }

    # 将修改后的内容写回重放文件
    open(my $replay_fh, ">", $rpl) || die "\ncannot write to $rpl\n";
    print $replay_fh @replay_lines;
    close $replay_fh;
}

修正后的改进点 #

1. 主程序将所有行读入数组，彻底避免了共享文件句柄的问题，能准确收集每个cell对应的行数据
2. replace子程序不再依赖全局资源，逻辑更清晰、可维护
3. 正则匹配改为匹配行前缀，能正确找到需要替换的目标行
4. 采用“读入内存修改→重新写入”的方式处理文件，避免了直接修改文件的风险
5. 用局部变量替代全局变量，消除了上下文污染的问题

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