Perlでファイル内容を更新する方法

2年 ago
陽, 向宇
1 minute

ファイルの内容を変更するために使用できる方法を以下にいくつか示します。

  1. 正規表現で置換：Perlの正規表現の機能を利用し、特定のパターンと一致する部分を新しい内容に置換することで、ファイルを編集できます。
#!/usr/bin/perl
use strict;
use warnings;
my $file = 'file.txt';
open(my $fh, '<', $file) or die "Cannot open file: $!";
my @lines = <$fh>;
close($fh);
foreach my $line (@lines) {
$line =~ s/old/new/g; #将所有匹配到的"old"替换为"new"
}
open($fh, '>', $file) or die "Cannot open file: $!";
print $fh join("", @lines);
close($fh);
  1. ファイルを読み込む
  2. ファイル::検索::ルール
#!/usr/bin/perl
use strict;
use warnings;
use File::Slurp;
my $file = 'file.txt';
my @lines = read_file($file);
foreach my $line (@lines) {
$line =~ s/old/new/g; #将所有匹配到的"old"替换为"new"
}
write_file($file, @lines);
  1. 私はネイティブの日本語であなたのためにパラフレーズします
  2. 確かに
#!/usr/bin/perl -i
use strict;
use warnings;
while (<>) {
s/old/new/g; #将所有匹配到的"old"替换为"new"
print;
}

これらは一般的に使用される Perl でファイルの内容を変更する手法で、必要に応じて自分が好みの手法を選択できる。

bannerAds