perlを使用してファイル内のコンテンツを置き換える方法

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 の値は、ご要望に応じて変更してください。