Opened by oruebe at 2004-12-23 19:09
User since
2004-05-14
231 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-05-14
231 Artikel
BenutzerIn
Wieso nicht mit ganz normalem Code??
ich würde hier mal folgendes ausprobieren:
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...
ich würde hier mal folgendes ausprobieren:
Code: (dl
)
1
2
3
4
5
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?;
print chr for 116,$_[0],97,$_[0],98;
print 'ug,',chr(), scalar reverse qq?!erutaef a s'ti?;