NUR letzte Zeile in einem Textdokument auswerten (Perl/CGI)

[thread]389[/thread]

NUR letzte Zeile in einem Textdokument auswerten

Leser: 3

oruebe

2004-12-23 19:09

User since
2004-07-09
46 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich habe Textdateien mit unterschiedlich vielen Zeilen.

Wie kann ich NUR die letzte Zeile zur weiteren Bearbeitung herausbekommen?

Z.B
open(DATEI,"meine_Datei.dat");
$letzteZeile= ?;
close(DATEI);

Gibt es hierfür einen Befehl? Und wie kann ich sicherstellen, dass die letzte Zeile nicht leer ist, bzw. in diesem Falle die vorletzte Zeile nehmen?

Danke für ALLE Hilfe und frohe Weihnachten,
Oliver\n\n

ptk

2004-12-23 19:18

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

File::ReadBackwards. Tie::File wuerde auch gehen, ist aber bei weiten nicht so effizient.

oruebe

2004-12-23 19:34

User since
2004-07-09
46 Artikel
BenutzerIn
[default_avatar]

schnell wie immer :-)

Aber wo füge ich das ein? Und: wenn ich das richtig verstehe, dreht das ja den Inhal nur um, oder? Muss ich nicht irgendwie auch noch sagen WAS (bzw. welche Datei) gedreht werden soll? Oder bin ich gerade völlig auf dem Holzweg?

ptk

2004-12-23 19:42

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Einfach die SYNOPSIS von File::ReadBackwards abschreiben. Der erste Rueckgabewert des getline-Aufrufes ist es.

jemand

2004-12-23 20:17

User since
2004-05-14
231 Artikel
BenutzerIn
[default_avatar]

Wieso nicht mit ganz normalem Code??
ich würde hier mal folgendes ausprobieren:

Code: (dl )

my @zeilen = <DATEI>;
close(DATEI);

$zeilenanzahl = @zeilen;
my $letzteZeile = @zeilen[$zeilenanzahl];

dann muss man nur noch mit nem regexp prüfen ob in der zeile was steht.
wenn nichts drinsteht nimmt man --$zeilenanzahl.
dann nochmalprüfen usw. in ner schleife am besten die halt dann abgebrochen wird wenn was drinsteht...

print uc 'i',chr(29*4).q+'s +.++($_=q-m-),++$_;
print chr for 116,$_[0],97,$_[0],98;
print 'ug,',chr(), scalar reverse qq?!erutaef a s'ti?;

Relais

2004-12-23 21:10

User since
2003-08-06
2257 Artikel
ModeratorIn

[quote=jemand,23.12.2004, 19:17]ich würde hier mal folgendes ausprobieren:

Code: (dl )

my @zeilen = <DATEI>;
close(DATEI);

$zeilenanzahl = @zeilen;
my $letzteZeile = @zeilen[$zeilenanzahl];

[/quote]
Oh, hättste es mal getan! =)

Der Code ist mehr als falsch, er funktioniert auch nicht.

Der Index der Letzten Position in einem Array ist die Zahl seiner Elemente minus 1. Das liegt daran, daß die Elemente eines Arrays mit 0 losgezählt werden, 5 Elemente hätten also die Indizes 0 .. 4.

Ein Arrayelement wird in Perl mit $arrayname[INDEX] angesprochen, INDEX ist eine Zahl. Diese Zahl kann komische Formen annehmen, oder auch in einer Variable stehen.

Die folgenden Wege gehen gut:

Code: (dl )

my $letzte_zeile = pop @zeilen;
# oder auch
$letzte_zeile = $zeilen[ -1 ];
# oder auch
$letzte_zeile = $zeilen[ $#zeilen ];
# oder auch
$letzte_zeile = $zeilen[ $zeilenzahl - 1 ];

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.

Winter is Coming

esskar

2004-12-23 21:35

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

@jemand:
kostet zu viel speicher...

mein vorschlag, ohne (nicht.standard) modul

Code: (dl )

use Fcntl;

sub get_lastline_of_file
{
   my ($file) = @_;

   my $fh;
   return undef unless open($fh, "< $file");

   binmode $fh;
   seek($fh, 0, SEEK_END);
   
   my $size = tell($fh);
   my $rest = $size; 
   my $step = 256;

   my $retval = "";
   while($rest > 0)
   {
      my $buffer;
      my $len = $step > $size ? $size : $step;
      seek($fh, -$len, SEEK_CUR);

      unless(read($fh, $buffer, $len))
      {
         close $fh;
         die "Read failed unexpected.";
      }    

      my $pos = rindex($buffer, "\n");
      while($pos > -1)
      {
         if(($pos != -1 + length $buffer) or ($rest != $size))
         {
            return substr($buffer, $pos+1).$retval;
         }
         $pos = rindex($buffer, "\n", $pos);
      }

      $retval = $buffer.$retval;
      $rest -= $len;
   }

   return $retval; 
}