Perl替换文件指定多行内容为另一文件内容代码异常，求错误排查

架构老林

2026-10-8

原代码存在的问题

跨多行匹配逻辑失效：你在逐行读取的循环内局部修改$/读取分隔符的操作不会生效，每次循环拿到的$_只有单行内容，不可能匹配到跨多行的replace from this line.*to this line规则。
嵌套循环逻辑混乱：匹配到标记行后开启的内层逐行循环，既没有正确跳过要删除的片段，也没有控制替换内容的输出时机，后续修改line3、line4的逻辑作用域也完全错位。
大括号匹配错误：代码末尾的大括号顺序不对，导致部分逻辑分支无法正常执行。

修复后的可运行代码

#!/apps/perl/5.8.3/bin/perl -w
open (INPUT, "a.txt")     or die $!;
open (REPLACE, "b.txt")   or die $!;
open (OUTPUT, ">c.txt")   or die $!;

# 读取b.txt的替换内容
my $replace_text;
{
    local $/;
    $replace_text = <REPLACE>;
    # 去掉b.txt末尾多余的换行避免输出多空行，不需要可以删掉下一行
    chomp $replace_text;
}
close(REPLACE);

my $skip_flag = 0;
while (<INPUT>) {
    # 处理前两行替换
    s/line1/modified_line1/;
    s/line2/modified_line2/;

    # 碰到替换起始标记，直接输出替换内容，开启跳过模式
    if (/replace from below line/) {
        print OUTPUT $_;
        print OUTPUT $replace_text."\n";
        $skip_flag = 1;
        next;
    }

    # 碰到替换结束标记，关闭跳过模式
    if (/to this line/) {
        $skip_flag = 0;
        next;
    }

    # 跳过模式下不输出原删除区间的内容
    next if $skip_flag;

    # 处理后两行替换
    s/line3/modified_line3/;
    s/line4/modified_line4/;

    print OUTPUT $_;
}

close(INPUT);
close(OUTPUT);