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

[Torsten Knorr]

#!/usr/bin/perl -w
=head
Aristotle Pagaltzis, 17 Aug 2008 17:11:08 +0200
>Das kann man mit
>einem einzigen `s///`-Aufruf nicht l=F6sen.
=cut
#-------------------------------------------------
 use strict;
 use re 'eval';
 my $text = "Ein Affe klettert, weil er ein Affe ist.";
 my @m;
 $text =~ m{(Affe( klettert)?)(?{push(@m, $1)})(?!)};
 print("$_\n") for(@m);
#-------------------------------------------------
__END__
#-------------------------------------------------
> Nein, es ist genau das, was gew=FCnscht ist. Hast du Thomas Mail
> aufmerksam genug gelesen? Hier nochmal der entscheidende Teil:

> Thomas Rittsche <thomas.rittsche at gmail.com> [2008-08-12 10:05]:
> Ziel w=E4re es, Links um "affe", "hund", "affe klettert", "hund
> rennt" zu bauen. Leider baut er mir die so nur um "affe" und
> "hund".

 Sollen aus "Affe klettert" 2 Links werden?

 T.