Dynamisches Zusammenstellen von RegExps

[Andreas]

Hallo!

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;}

Eigentlich sollte das so ähnlich funktionieren:

my $wort = "hallo";

while (<>) {
    if (/($wort/)) {
    Am Anfang von $_ steht $wort";
    }
}

Vermutlich müßte das dann wie folgt funktionieren:

$content =~ "m/<[Pp]>($wort).*?\n/s"

Aber wie Du sicher weißt bin ich keine PERL-Guru ;-)
Aber das Beispiel aus meinem PERL-Buch hatte ich im Hinterkopf, vielleicht bringts ja was!

Grüße
Andreas