perl - 如何使用perl添加和替换线阵列中的行

Question

我想通过添加一些行并替换其他一些行来编辑文件。
我正在尝试使用包含我的文件一行一行的数组，即

    my $output_file_string = `cat $result_dir/$file`;
    my @LINES = split(/\n/, $output_file_string);

我有一个我想在文件中找到的行的哈希表，并替换它们或在它们之后添加额外的行。
我编写了以下代码来识别这些行:

        foreach my $myline (keys %{ $hFiles_added{$file} }) { 
            foreach my $line ( @LINES) {
                  if ($line =~ /\Q$myline\E/) {
                       ### here should be a code for adding a new line after the current line ###
                  }
             }
        }
        #### here should be a code to return the array to the output file ####

我不知道如何添加\替换部分，以及如何将我编辑的文件保存回文件(而不是数组

谢谢你
沙哈尔

Answer 1

使用 splice更改 @LINES 的内容.

使用 open和 print写信 @LINES回到你的文件。

如果其他人可能同时编辑此文件，那么您将需要 flock .

如果性能对您来说不是那么重要，那么您可以查看 Tie::File .

对于更复杂的文件处理，您可能需要 seek和 truncate .

但这一切都在 Perl 常见问题解答中得到了很好的介绍 - How do I change, delete, or insert a line in a file, or append to the beginning of a file?

顺便说一句，您的前两行代码可以替换为一行:

my @LINES = `cat $result_dir/$file`;