2

重複の可能性：
コマンドラインにないファイルのperlインプレース編集が必要

ログファイルを編集するスクリプトがすでに機能していますが、一時ファイルを使用しています。スクリプトは次のように機能します。

Open my $in , '<' , $file;
Open my $out , '>' , $file."tmp";

while ( <in> ){
  print $out $_;
  last if $. == 50;
}

$line = "testing";
print $out $line;

while ( <in> ){
  print $out $_;
}

#Clear tmp file
close $out;
unlink $file;
rename "$file.new", $file;

tmpファイルを作成せずにファイルを編集したいのですが。

4

2 に答える 2

7

すべての行を読み取り、変更する行を変更して、すべて元のファイルに書き戻します。オプションで、 File :: Slurpなどのモジュールを使用して、すべての行を読み書きするための1行のメソッドを使用できます。

例えば：

use File::Slurp;
my @lines = read_file("yourfile.txt");
$lines[$line_number_to_modify] = "whatever\n";
write_file("yourfile.txt", @lines);
于 2012-12-20T11:47:00.500 に答える
5

インプレース編集の魔法を使用します。

#!/usr/bin/env perl
use autodie;
use strict;
use warnings qw(all);

my $file = 'test';

# setup the inplace operation
@ARGV = ($file);
# keep backup at "$file.bak"
$^I = '.bak';

# inplace editing takes over STDIN/STDOUT
while (<>){
    print;
    if ($. == 50) {
        my $line = "testing\n";
        print $line;
    }
}
于 2012-12-20T12:09:56.903 に答える