Perl: как удалить последнюю записанную строку в выходном файле?

Question

Мне было интересно, возможно ли удалить последнюю строку, которая была записана в выходной файл с [print OUT "blabla";] в perl?Большое спасибо заранее!

Answer 1

См .: Как в Perl изменить, удалить или вставить строку в файл или добавить в начало файла?

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

Еще одно предложение: откладывайте печать строки, пока не узнаете, что вам нужно ее напечатать.