Perlのファイルテキストを編集するには

Question

私は今、私は変数の値を更新したいファイルがあります。これを行う方法は？ ファイル内容：この中に今

<Config> 
NUM1 = 8 
AMV1 = 8 
AMV2 = 8 
DEF2 = 8 
DGF = 8 
</Config> 

私たちはPerlでこれを行うことができますどのようにNUM1の値を変更したいです。

Answer 1

あなたはワンライナーを使用して、コマンドラインから直接それを行うことができます。

perl -i~ -pe 's/^(\s*NUM1)=.*/$1=NewValue/' config-file 

• -i~がチルダでバックアップを残して、「場所に」ファイルを変更するには、-p読み取り
• を追加しました行単位で入力し、それを印刷します。
• s///は代用です。
• ()正規表現にキャプチャグループを作成すると、 update-configに保存

  #!/usr/bin/perl 
  use warnings; 
  use strict; 
  
  while (<>) { 
      s/^(\s*NUM1)=.*/$1=NewValue/; 
      print; 
  } 
  

  、update-config config-file > new-configとして実行：最初のキャプチャグループは、スクリプトで$1

として交換部品から参照することができ、あなたは実際のコードで-pを置き換える追加する必要があります。

または、ファイルを自分のも、開口部を処理する場合：

#!/usr/bin/perl 
use warnings; 
use strict; 

my $filename = 'config-file'; 
my $newfile = "$filename.new"; 
my $backup = "$filename~"; 

open my $IN, '<', $filename or die $!; 
open my $OUT, '>', $newfile or die $!; 
while (<$IN>) { 
    s/^(\s*NUM1)=.*/$1=NewValue/; 
    print {$OUT} $_; 
} 
close $OUT or die $!; 
rename $filename, $backup or die $!; 
rename $newfile, $filename or die $!;