Shell脚本多行替换故障：Perl单行命令执行报错求助

错误原因 #

你的Perl单行命令报错核心有两点：

1. 正则特殊字符未转义：直接将before.txt的内容插入正则表达式，其中的.、|、:等字符会被Perl当作正则语法解析，破坏命令结构。
2. 错误使用/e修饰符：该修饰符会把替换内容（after.txt的内容）当作Perl代码执行，而非普通字符串，导致range:这类文本被识别为无效语法。

解决方案 #

推荐两种可靠的处理方式：

方式1：使用独立Perl脚本（更易维护，适合新手）

创建replace_multiline.pl脚本：

#!/usr/bin/perl
use strict;
use warnings;

# 读取待替换的原始内容
open my $fh, '<', 'before.txt' or die "无法打开before.txt: $!";
my $before_content = do { local $/; <$fh> };
close $fh;

# 读取目标替换内容
open $fh, '<', 'after.txt' or die "无法打开after.txt: $!";
my $after_content = do { local $/; <$fh> };
close $fh;

# 自动转义正则特殊字符
$before_content = quotemeta($before_content);

# 处理目标文件并生成备份
local $^I = '.bak';
while (<>) {
    s/$before_content/$after_content/s; # s修饰符支持跨行匹配
    print;
}

执行命令：

chmod +x replace_multiline.pl
./replace_multiline.pl original.yml.new

执行后会生成original.yml.new.bak备份文件，替换后的内容直接写入原文件。

方式2：改进的Perl单行命令

如果偏好命令行直接操作，使用以下命令：

perl -i.bak -0777 -pe 'BEGIN { $before = do { local $/; open F, "<before.txt"; <F> }; $after = do { local $/; open F, "<after.txt"; <F> }; $before = quotemeta($before) } s/$before/$after/s' original.yml.new

参数说明：

• -0777：将整个文件作为单个字符串读取，确保跨行匹配生效
• -i.bak：修改文件时自动生成.bak后缀的备份
• quotemeta：自动转义before.txt中的正则特殊字符，避免语法错误
• /s：让正则中的.匹配换行符，支持多行内容替换

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