Perl：如何删除输出文件中的最后写入的行？

Question

I was wondering whether it is possible to remove the last line that was written in the output file with [print OUT "blabla";] in perl? Many thanks in advance!

Answer 1

请参见： 在Perl中，如何更改，删除或在文件中插入一行，或追加到文件的开头？

Answer 2

This will delete the last line from a file:

open (FH, "+< $file")               or die "can't update $file: $!";
while ( <FH> ) {
    $addr = tell(FH) unless eof(FH);
}
truncate(FH, $addr)                 or die "can't truncate $file: $!";

Answer 3

另一个建议：推迟打印该行，直到您知道需要打印为止。