nicht angemeldet
Ich möchte eine Textstelle in einer HTML-Datei editieren.
Auszug aus der HTML-Datei :
<!-- Ticker:Anfang -->
<input type="hidden" name="message" value="
Ich bin ein Ticker
">
<!-- Ticker:Ende -->
Auszug aus der Perl-Datei
@alldats=<*.html>; # Erfassen aller HTML-Dateien im Ordner
foreach(@alldats)
{
if (-f $_) # prüft Existenz
{
open(HTML,"<$_") # Öffnen zum Lesen
@datinh=<HTML>;
foreach(@datinh)
{
$p++;
if(/<!-- Ticker:Anfang -->/) # Wenn Kommentar-Position gefunden ..
{
$tickerid=$p; # Merken der Position
}
$p++;
}
close(HTML);
$datinh[$tickerid+2]=$form{'tickertext'}; # Ersetzen der übernächsten Zeile (siehe HTML-Datei)
open(HTML,">$_") # Neues Schreiben der Datei
foreach(@datinh)
{
print HTML $_;
}
close(HTML);
}
Keine Fehlermeldung. Jedoch wird der Text nicht ersetzt, sondern ist am Dateiende wiederzufinden. Ich habe viel probiert und nichts ging.
Wer kann helfen.