nicht angemeldet
Hi! (Sorry, aber den kann ich mir jetzt nicht verkneifen ..)
ein wenig suboptimal (viele Wege führen bekanntlich nach Rom), ich poste mal 'ne andere Version:
Auf der Straße kommt man aber doch etwas schneller voran, als auf der direkten Luftlinie durch Felder und Wiesen zu stapfen ;-)
Wie wär's denn mit:
open(TXT,"name.txt") or die "Fehler beim Öffnen: $!";
$/='<!--test-->';
$anfang = <TXT>;
$/='';
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.
SOoo (klappts auch mit dem Nachbarn) spart man sich das regelmäßige Patternmatching, was gerade bei großen Dateien eine deutlich bessere Zeitausbeute gibt ...
Na ja! Ganz so brutal besser wird meine Lösung wohl auch nicht sein. Ich weiß ja auch nicht, wie die Sache mit dem Input-Separator intern gelöst ist.
Und ich dachte Du kannst inzwischen perldoc perlvar in- und auswendig ;-)
Cheatah
Nichts für ungut,
Jörk