perl怎么替换文件内容

在 Perl 中，可以使用 s/// 替换操作符来替换文件内容。以下是一个简单的示例：

#!/usr/bin/perluse 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 的值。