在 Perl 中，可以使用 s/// 替换操作符来替换文件内容。以下是一个简单的示例：
#!/usr/bin/perl
use strict;
use warnings;
# 打开文件
open my $input_fh, '<', 'input.txt' or die "无法打开文件: $!";
open my $output_fh, '>', 'output.txt' or die "无法打开文件: $!";
# 逐行读取文件内容并替换
while (my $line = <$input_fh>) {
# 使用 s/// 替换操作符进行替换
$line =~ s/old_text/new_text/g;
# 将替换后的文本写入输出文件
print $output_fh $line;
}
# 关闭文件句柄
close $input_fh;
close $output_fh;
print "文件内容已替换并保存到 output.txt 文件中。\n";
上述代码将打开名为 input.txt 的输入文件，逐行读取其内容，并使用 s/// 替换操作符将所有匹配 old_text 的地方替换为 new_text，然后将替换后的内容写入名为 output.txt 的输出文件。请根据实际需求修改 old_text 和 new_text 的值。
