Das erste Zeichen einer Zeile auslesen - #114771 (Allgemeines zu Perl)

Struppi

2008-09-18 14:43

User since
2006-02-17
628 Artikel
BenutzerIn

Wenn du sowieso nicht die ganze Datei brauchst, würd ich sie auch nicht komplett einlesen und du kannst die Zeilennummer direkt verwenden (sie steht in $.)

Code (perl): (dl )

while(<DATA>) {
if( m/^1/){
        print "JJAAA....es sind zahlen da, man braucht keine Zeilennummern mehr \n";
        last;
}
print WRITE "$. $_";
}