open (FH, "$searchdata");
while(my $search = <FH>){ #Zeilenweise einlesen
if ($search =~ m/$such/g) { #Suchen nach dem Wort: und
print "<font size=+2>$search<br>";
}
}
close(FH);
Datafile sieht z.B. so aus :
...
<a href="http://www.blutsdvdpage.de/ab18/cgi-bin/review.cgi?zombieholocaust"><font size=+1>Zombie Holocaust</a>
<a href="http://www.blutsdvdpage.de/ab18/cgi-bin/review.cgi?woodoo"><font size=+1>Woodoo - Schreckensinsel der Zombies</a>
<a href="http://www.blutsdvdpage.de/ab18/cgi-bin/review.cgi?zombie3"><font size=+1>Zombie 3</a>
<a href="http://www.blutsdvdpage.de/ab18/cgi-bin/review.cgi?hausanderfriedhofsmauer"><font size=+1>Haus an der Friedhofsmauer</a>
<a href="http://www.blutsdvdpage.de/ab18/cgi-bin/review.cgi?grossangriffderzombies"><font size=+1>Großangriff der Zombies</a>
...
So, finden tut das script jetzt
Zombie 3
Zombie Holocaust
Großangriff der Zombies
aber halt nicht Woodoo - Schreckensinsel der Zombies.
Versteh ich nicht ...