Как да изтриете последните 5 реда от файл

Можете да използвате Tie::File:

use Tie::File;
tie my @array, 'Tie::File', filename or die $!;

if ($exists == 0) {
    $#array -= 5;
}

Можете да използвате същия масив при печат, но вместо това използвайте push:

push @array, "line of text";

Само очевидни начини, за които се сещам:

1. Заключете файл, сканиране назад, за да намерите позиция и да използвате truncate.
2. Не печатайте директно във файла, преминете през буфер с дължина поне 5 реда и изрежете буфера.
3. Отпечатайте маркер, който означава „игнорирайте последните пет реда“. Обработете всичките си файлове, преди да ги прочетете с буфер, както в #2

Всички са доста неудобни, но страхувам се, че това е природата на плоските файлове.

HTH

Като алтернатива отпечатайте целия файл с изключение на последните 5 реда:

open($fh, "<", $filename) or die "can't open $filename for reading: $!";
open($fh_new, ">", "$filename.new") or die "can't open $filename.new: $!";
my $index = 0; # So we can loop over the buffer
my @buffer;
my $counter = 0;
while (<$fh>) {
    if ($counter++ >= 5) {
        print $fh_new $buffer[$index];
    }
    $buffer[$index++] = $_;
    $index = 0 if 5 == $index;
}
close $fh;
close $fh_new;
use File::Copy;
move("$filename.new", $filename) or die "Can not copy $filename.new to $filename: $!";

File::ReadBackwards+truncate е най-бързият за големи файлове и вероятно толкова бърз, колкото всичко друго за кратки файлове.

use File::ReadBackwards qw( );

my $bfh = File::ReadBackwards->new($qfn)
   or die("Can't read \"$qfn\": $!\n");

$bfh->readline() or last for 1..5;

my $fh = $bfh->get_handle();
truncate($qfn, tell($fh))
   or die $!;

Tie::File е най-бавният и използва голямо количество памет. Избягвайте това решение.

можете да опитате нещо подобно:

open FILE, "<", 'filename';
if ($exists == 0){
 @lines = <FILE>;
 $newLastLine = $#lines - 5;   
 @print = @lines[0 .. $newLastLine];
 print "@print";
}

или дори съкратено:

open FILE, "<", 'filename';
@lines = <FILE>;
if ($exists == 0){
 print "@lines[0 .. $#lines-5]";
}