Schon wieder Terror mit CGI...

[Cosmo]

wenn der Script <!--MARKER--> gefunden hat,
moechte ich dort den Eintrag speichern!
Und zwar nur dort!
Mein Script loescht naehmlich immer die ganze Datei!
Das heisst der Script muss etwas einfügen und nicht alles neu schreiben!!!!

Hi Moritz,
Da hat der Frank wohl recht, das geht wohl wirklich nicht, Perl schreibt entweder die Datei komplett neu (>) oder haengt hinten an (>>). Du kannst das Problem aber leicht umgehen, wie dir mein Scriptauszug beweist. (Musst Du nur noch auf Deine Beduerfnisse umschreiben), d.h. erst Datei einlesen und dann mit gewuenschtem Eintrag neuschreiben. Falls es noch Probleme gibt, gib ein Zeichen, ...

Viele Gruesse
Cosmo

open (PROJEKTE,"<../webpages/Projekt/projekte.htm")|| &unter && die "Datei konnte nicht gefundn werden";
   while (<PROJEKTE>) {
     chomp $_;
     push (@list, $_)
   }
   close (PROJEKTE);

open (NEU, ">../webpages/Projekt/projekte.htm") || &unter && die "Datei konnte nicht gefundn werden";
   foreach (@list) {
     if ($_ ne '</BIG></BIG></B><BR>') {print NEU "$_\n"}
     else {print NEU "<A HREF="$pname/$pname.htm" TARGET="main"><IMG SRC="images/access_a.gif" HEIGHT=27 ALIGN=TEXTTOP BORDER=0></A>  $pname<BR>\n";
       print NEU "$_\n"
     }
   }
   close (NEU);