Opened by Arach at 2006-04-20 11:05
User since
2003-10-20
610 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-10-20
610 Artikel
BenutzerIn
ok ">" schreibt in die datei... du brauchst nur "<" zum lesen oder?
Ermittle die Grösse... minus die anzahl zeichen die du lesen willst. und lies so die zeichen
1000 = anzahl zeichen
5000 = zeichenoffset
so kannst du am ende auslesen.
dann kannst du ja den string nach \n splitten.. und du hast wieder die Zeilen... (wobei ev. eine dann unvollständig ist.)
Ermittle die Grösse... minus die anzahl zeichen die du lesen willst. und lies so die zeichen
1000 = anzahl zeichen
5000 = zeichenoffset
Code: (dl
)
1
2
3
4
my $Ausgabe;
open(DATEI, "</log.log");
my $geleseneZeichen = read(DATEI, $Ausgabe, 1000,5000);
close(DATEI);
so kannst du am ende auslesen.
dann kannst du ja den string nach \n splitten.. und du hast wieder die Zeilen... (wobei ev. eine dann unvollständig ist.)
$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;