Probier's mal so:#!/usr/bin/perl
use strict;
use warnings;
open my $datei, '+<', 'test.txt'
or die "Konnte die Datei nicht einlesen:\n($!)";
my $position;
while ( <$datei> ) { # Datei durchlaufen
if (! eof($datei)) { # und solange die nächste Lese-Operation nicht eof(end of file) melden wird
$position = tell($datei); # Position innerhalb der Datei merken
}
}
# Datei bis zur letzten gemerkten Position kürzen
truncate ( $datei, $position );
close $datei
or warn "Konnte die Datei nicht richtig schließen\n($!)";
Siehe auch :
http://perldoc.perl.org/functions/eof.html
http://perldoc.perl.org/functions/tell.html
http://perldoc.perl.org/functions/truncate.html
Datum: 27.03.2006-18:32
letzte Zeile einer Datei löschen
