perl - 如何在不使用 tmp 文件的情况下在 perl 中编辑 txt 文件中的一行

Question

可能重复：
需要 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 文件的情况下编辑我的文件。

Answer 1

读取所有行，然后修改要修改的行，然后将它们全部写回原始文件。您可以选择使用File::Slurp之类的模块作为单行方法来读取和写入所有行。

例如：

use File::Slurp;
my @lines = read_file("yourfile.txt");
$lines[$line_number_to_modify] = "whatever\n";
write_file("yourfile.txt", @lines);

Answer 2

使用就地编辑魔法：

#!/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;
    }
}