Dateihandle: Beliebige Anzahl von Zeilen weiter ... - #61524 (Allgemeines zu Perl)

bloonix

2006-01-06 16:24

User since
2005-12-17
1615 Artikel
HausmeisterIn

[quote=Relais,06.01.2006, 14:52]

Code: (dl )

$. += 2;

[/quote]
ohne es zu testen ... wenn ich die letzten 200 Zeilen einer
Datei lesen möchte, funktioniert dann auch ...

Code: (dl )

1
2

seek(FILE,0,SEEK_END);
$. -= 200;

bisher habe ich es so gelöst:

Code: (dl )

   my @ind;
   my $i;
   for ($i = 0; <F>; $i++) {
      $ind->[$i] = tell F;
   }
   $i = $i > 200 ? $i-200 : 0;
   seek (F,$ind[$i],0);

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.