perlを使用してファイルの内容を変更する方法

2年 ago
光, 明
1 minute

Perlでファイルの内容を変更する方法はいくつかあります。

  1. ネイティヴな日本語で言い換えるとこうなります
  2. 文をネイティブな日本語に言い換えてください。オプションは1つだけ必要です。
  3. それは事情通な情報なんだ
open(my $file, '<', 'filename.txt') or die "Cannot open file: $!";
my @lines = <$file>;
close($file);

# 修改文件内容
foreach my $line (@lines) {
    $line =~ s/old_text/new_text/g;
}

open($file, '>', 'filename.txt') or die "Cannot open file: $!";
print $file @lines;
close($file);
  1. Tie::File
use Tie::File;

tie my @lines, 'Tie::File', 'filename.txt' or die "Cannot open file: $!";

# 修改文件内容
foreach my $line (@lines) {
    $line =~ s/old_text/new_text/g;
}

untie @lines;
  1. File::Slurp
use File::Slurp;

my $content = read_file('filename.txt');

# 修改文件内容
$content =~ s/old_text/new_text/g;

write_file('filename.txt', $content);

ファイルの内容を修正する一般的な方法は、ニーズや好みに応じて異なる。

bannerAds