URGENT! Was mache ich falsch??!!

[Felix Schwarz]

Hi.

open(GO, ">../../APP/pl.html");

or die "Datei konnte nicht zum Schreiben geöffnet werden! $!\n";
wäre angebracht.

foreach $line (@lines)

in @lines sind alle Zeilen korrekt vorhanden? (nur Verständnisfrage, wird wohl so sein)

hier liegt das Problem:
»»   if ($line =~ /<!--number-->/)
»»     {
»»      print GO "<!--number--><B><BIG>$i</I></BIG></B>\n";
»»     }
»»     {
»»      print GO $line;
»»     }

es soll wohl eine if-else-Konstruktion werden, oder?
Dann musst Du aber auch das else erwähnen und nicht nur einen neuen Block eröffnen, also:i
if ($line =~ /<!--number-->/)
    { (...) }
else { print GO $line;  }

»»      print GO "<!--number--><B><BIG>$i</I></BIG></B>\n";
Du bist sicher, dass hier noch mal das Muster kommen soll?
(Ich kenn deinen Script-Aufbau nicht, aber das könnte u.U. Seiteneffekte haben)

fs