Text auslesen und in andere Datei einfügen

[Marko]

Hi das ist eine Lösung, die ich wo verwendet habe:

#!/usr/bin/perl

@Zeilen = ("");
open(EINTRAGSDATEI,"<eintraege.txt");
while(<EINTRAGSDATEI>)
{
  push(@Zeilen,$_);
}
close(EINTRAGSDATEI);

open(FORUMSDATEI, "<../forum/forum.htm") die "Datei nicht gefunden";
  print "Content-Type: text/html\n\n";
  while(<FORUMSDATEI>)
   {      
    print $_;    
    if($_ =~ "<!--eintrag//-->")
    {
     for(@Zeilen)  
      {      
          print $_;        
      }
    }
   }
close(FORUMSDATEI);

exit (0);

Die Datei ist ../forum/forum.htm mit relativem Pfad, und der Kommentar in der Datei wird durch den Inhalt der Liste @Zeilen ersetzt.
Das sollte es eigentlich tun.

Gruss

Marko