Perlでファイルの内容を変更する方法を教えてください。

2年 ago
陽, 向宇
1 minute

Perl はファイルの内容を変更するための多数の方法を提供しています。一般的な方法は次のとおりです。

  1. open関数でファイルを開き、print関数でファイルの内容を読み込み、編集して新しいファイルに書き込む。たとえば：
open(my $input_fh, '<', 'input.txt') or die "Cannot open input.txt: $!";
open(my $output_fh, '>', 'output.txt') or die "Cannot open output.txt: $!";
while (my $line = <$input_fh>) {
# 修改文件内容
$line =~ s/foo/bar/g;
print $output_fh $line;
}
close($input_fh);
close($output_fh);
  1. Tie::Fileモジュールでファイルの内容を配列に結びつけ、配列要素を編集することでファイル内容を編集する。例：
use Tie::File;
tie my @file_array, 'Tie::File', 'file.txt' or die "Cannot open file.txt: $!";
foreach my $line (@file_array) {
# 修改文件内容
$line =~ s/foo/bar/g;
}
untie @file_array;
  1. File::Slurpモジュールを使用してファイルの全内容を文字列に読み込み、正規表現や文字列置換関数で文字列の内容を変更し、変更後の文字列をファイルに書き戻します。たとえば、以下のようになります。
use File::Slurp;
my $content = read_file('file.txt') or die "Cannot read file.txt: $!";
# 修改文件内容
$content =~ s/foo/bar/g;
write_file('file.txt', $content) or die "Cannot write to file.txt: $!";

必要な内容に応じて適切な手段を選択してファイルの内容を編集してください。

bannerAds