Regexp: Suchmuster, das in einer Variablen steht, anwenden

[manuel]

Hallo zusammen!

Habe da ein Perl-Problem. Und zwar steht mein regulärer Ausdruck in einer Variablen. Leider scheint das aber nicht einfach so zu funktionieren.

Beispiel:
$regexp='s/@//';
$text='[e-mail]';
$text=~$regexp;
print $text;

Ausgabe: [e-mail]

$text='[e-mail]';
$text=~s/@//;
print $text;

Ausgabe seriousvirusgmx.net

Weis jemand von Euch, wie ich einen regulären Ausdruck, welcher in einer Variablen gespeichert ist, auf einen String anwenden kann?

Vielen Dank für Eure Antworten!

greez

manuel

PS: Mir ist schon klar, dass man das obenstehende Beispiel besser mit tr löst...

[Stefan Pottinger]

Hallo Manuel!

Nicht nur Dein Regex steht in einer Variablen, sondern auch die dazugehörige Funktion...

Alternative:

$regexpSubWhat='@';
$regexpSubWith='';
$text='[e-mail]';
$text=~s/$regexpSubWhat/$regexpSubWith/;
print $text;

Falls Du wirklich nur einen regulären Ausdruck in einer Variablen hast, kannst Du die Variable innerhalb der Slashes problemlos verwenden.

Viele Grüße,
Stefan

[EmmJay]

Es gibt auch noch die Möglichkeit des "Quote Regex", also eines Regexobjekts... Das würde so funktionieren:

$regex = qr/@/

Damit weist du Perl an, in die Variable $regex einen Ausdruck zu speichern, der später als Regex wieder interpoliert werden kann.

Eine komplette Anweisung kannst du nicht als Regex speichern, das wäre, als wenn du "5 + 3" als String speicherst und hinterher 8 rausbekommen willst.

In deinem Beispiel (gesetzt den Fall, der Ersetzungsstring ist immer leer) sähe das dann so aus:

$ersetzt = s/$regex//g;

Übrigens kannst du den Ersetzungsstring als ganz normale Variable (ohne "qr") speichern, denn das ist ja so oder so nur ein String.

Hoffe, das hilft?!