arrrgh!!!
Kann mir jemand erklären, warum das simple suchen/ersetzen in der letzten zeile das script zum absturz bringt?
wenn ich diese zeile rauskommentieren, laeuft das skript ganz normal durch und liefert ein richtiges suchergebnis.
ich raff es nicht!!!
sub search {
@terms = split(/\s+/, $FORM{'terms'});
foreach $FILE (@FILES) {
open(FILE,"$FILE");
@LINES = <FILE>;
close(FILE);
$string = join(' ',@LINES);
$string =~ s/\n//g;
$start = index($string,"<a");
$stop = index($string,"a>")+2;
$stop = $stop - $start;
$suchstring = substr($string,$start,$stop);
$ersetzedurch = "nichts";
$string =~ s/$suchstring/$ersetzedurch/g;
.
.
.
.