如何使用Perl替换匹配正则表达式的整行内容？

方式一：命令行快速处理（推荐简单场景） #

直接通过Perl命令行参数原地修改文件，无需编写完整脚本：

• 基本用法（原地修改，无原文件备份）：

perl -i -pe 's/^Baltimore.*$/Baltimore yes/' input.txt

• 带原文件备份的用法（自动生成input.txt.bak备份文件）：

perl -i.bak -pe 's/^Baltimore.*$/Baltimore yes/' input.txt

参数说明：

• -i：开启原地文件编辑模式
• -p：自动循环读取每行内容，处理后自动打印输出
• s/^Baltimore.*$/Baltimore yes/：正则替换规则，^Baltimore.*$匹配整行以Baltimore开头的内容，替换为指定字符串Baltimore yes

如果只需匹配包含Baltimore的任意行，可简化写法：

perl -i -pe '$_ = "Baltimore yes" if /Baltimore/' input.txt

方式二：脚本文件实现（适合复杂逻辑场景） #

如果需要更灵活的逻辑控制（比如多条件判断、动态生成替换内容），可编写Perl脚本：

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

# 配置参数
my $source_file = 'input.txt';
my $dest_file = 'output.txt';
my $replacement_line = 'Baltimore yes';

# 打开文件句柄
open my $in_fh, '<', $source_file or die "无法打开源文件: $!";
open my $out_fh, '>', $dest_file or die "无法创建目标文件: $!";

# 逐行处理内容
while (my $line = <$in_fh>) {
    # 匹配到目标内容时替换整行，否则原样输出
    if ($line =~ /Baltimore/) {
        print $out_fh "$replacement_line\n";
    } else {
        print $out_fh $line;
    }
}

# 关闭文件句柄
close $in_fh;
close $out_fh;

使用步骤：

1. 将上述代码保存为replace_line.pl
2. 赋予脚本执行权限：chmod +x replace_line.pl
3. 运行脚本：./replace_line.pl

正则匹配规则调整 #

根据实际需求修改正则表达式：

• 精确匹配整行内容：/^Baltimore no$/（仅替换Baltimore no这一行）
• 匹配包含Baltimore的任意行：/Baltimore/
• 匹配以Baltimore结尾的行：/Baltimore$/

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