在 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 的輸出文件。請根據(jù)實際需求修改 old_text 和 new_text 的值。
