[Dresden-pm] Reguläre Ausdrücke - Suchen und Ersetzen von Worten

[Aristoteles Pagaltzis]

* Torsten Knorr <create-soft at tiscali.de> [2008-08-17 10:50]:
> Aristotle Pagaltzis Tue, 12 Aug 2008 16:16:46 +0200
>> my %insertion;
>>    for my $kw ( @keywords ) {
>>        my ( $rx ) = map qr/$_/i, quotemeta $kw;
>
> my $rx = qr/\Q$kw\E/i;

Ach ja, ich vergaß (sorry wegen der vielen Mails auf einmal):

Danke für den Hinweis, aber das war mir bewußt. Ich mag `\Q` und
`\E` aus stilistischen Gründen nicht. Sie müssen direkt an den
Variablennamen geklatscht werden und bilden auch optisch keine
Klammer.

Mir fällt aber grad eine viel bessere Lösung ein:

    my $rx = qr/${\quotemeta $kw}/i;

-- 
*AUTOLOAD=*_;sub _{s/(.*)::(.*)/print$2,(",$\/"," ")[defined wantarray]/e;$1}
&Just->another->Perl->hack;
#Aristoteles Pagaltzis // <http://plasmasturm.org/>