Hallo Fokuhila,
[...]
if (/<!--begin-->/) {
Dieser reguläre Ausdruck prüft nur, ob <!--begin--> vorhanden ist. Wenn ja, wird sofort losgeschrieben.
Das ist ja imho prinzipiell beabsichtigt, also bei <!--begin--> den neuen Eintrag einfügen.
Hier ein sinnvoller Regexp:
s/<!--begin-->/&eintrag<!--begin-->/ while (OUTFILE);
OUTFILE muss zum Lesen _und_ Schreiben offen sein
Kannst Du vielleicht näher erläutern _wie_ Du das genau zum Laufen gebracht hast? Bei mir funzt das nicht ;)
(perl meckert: "Bareword found in conditional ...")
Gruß Alex