simples suchen und ersetzen ergibt internal server error

[tom]

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;

.
.
.
.

[Bio]

Sup!

Steht sicher irgendwo in /usr/local/httpd/error_log oder so...

Gruesse,

Bio

[Michael Schröpl]

Hi,

Kann mir jemand erklären, warum das simple suchen/ersetzen in der
letzten zeile das script zum absturz bringt?

mach doch mal eine Archiv- oder besser SelfHTML8-Suche nach "fatalsToBrowser", das bringt Dich eventuell auf ganz interessante Gedanken ...

Viele Grüße
      Michael

[Tom]

Danke für die Tipps.
Der Fehler lag wohl daran, dass ich aus dem HTML-Dokument einen Link ausgelesen und in $suchstring gespeichert habe:

<a href="myDocument.html">myLinkName</a>
Die Sonderzeichen hatten somit kein \

$string =~ s/$suchstring//g;
kann dann wohl nicht funktionieren?

Hat jemand eine einfach Lösung in petto, wie man Links aus einem zu durchsuchenden String vorher entfernt?

Es dankt ein blutiger Anfänger.