nicht angemeldet
Sup!
Ich habe ein kleines Problem. Ich habe ein Perl-Skript, welches eine Zeichenkette entgegennimmt. Es startet dann ein Programm, dass Quellcode von Webseiten zurueckliefert, in denen diese Zeichenkette vorkommt.
Dann soll das Programm noch Schnipsel aus dem Quellcode ausschneiden, in denen die Zeichenkette vorkommt.
Dazu macht das Programm vereinfacht ca. folgendes:
$wort = <STDIN>;
chomp($wort);
open IN,(".../programm $wort |");
... verschiedene Dinge passieren, schliesslich ist der Quelltext in $content;
while ($content =~ "m/<[Pp]>".$wort.".*?\n/s") {print $1;}
Letztere Zeile funktioniert aber irgendwie mal gar nicht, auch nicht vereinfacht... brauche ich ein eval oder sowas?
Gruesse,
Bio