nicht angemeldet
hi ho
meinst du sowas wie:
»» while (<DATEI>) {
s/$sperre/$sperre/e;$test = $_;
print $test;?
sicherer (im sinne von -> nur wirklich ersetzen, wenn es an der richtigen stelle steht...) waere natuerlich
s/(<input[^>]+value=")$sperre("[^>]*>)/"$1$sperre$2"/ei;
sub test {
$errormsg = "Fehler beim Lesen der Datei: index.html";
print "Content-type: text/html\n
<html><head>
";
open (DATEI "index.html") &error($errormsg);
while (<DATEI>) {
$test = $_;
$test =~ s/(value=")1("[^>]*>)/"$1$daten[1]$2"/; # und das
$test =~ s/(value=")2("[^>]*>)/"$1$daten[2]$2"/; # hier will
$test =~ s/(value=")3("[^>]*>)/"$1$daten[3]$2"/; # ich nur 1x tippen muessen
print $test;
}
print "Test: ".$test1;
close (DATEI);
exit;
}
soweit meine routine.
lars