nicht angemeldet
Hi,
ein wenig suboptimal (viele Wege führen bekanntlich nach Rom), ich poste mal 'ne andere Version:
open(TXT,"name.txt") or die "Fehler beim Öffnen: $!";
$line = "";
while (($line = <TXT>) && ($line !~ /<!--test-->/)) { }
while ($line = <TXT>) {
print $line;
}
close(TXT);
So spart man sich die regelmäßige if-Abfrage, was gerade bei großen Dateien eine deutlich bessere Zeitausbeute gibt. Die zweite while-Schleife kann man auch einfach durch
@text = <TXT>;
ersetzen, dann wird der Rest der Datei in das Array @text geladen und kann beliebig weiter verwendet werden. Übrigens habe ich die Abfrage (zeitlich nicht mehr optimal) mit einer RegExp gelöst, weil eine Zeile gewöhnlich auf \n endet. Man könnte das durch "(chomp($line) ne "<!--test-->")" optimieren. Zudem bin ich mit der Abfrage, ob die Datei noch Daten enthält, nicht ganz zufrieden. Gibt es eigentlich EOF?
Cheatah