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

Question

我想知道是否可以删除在perl中使用[print OUT "blabla";]在输出文件中写入的最后一行？非常感谢提前！

Answer 1

请参阅：In Perl, how do I change, delete, or insert a line in a file, or append to the beginning of a file?

Answer 2

这将删除文件中的最后一行：

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

另一个建议：延迟打印线，直到您知道需要打印它。