阅读量:3
在 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 的值。
