PHP-Code in Perl umschreiben

[seblon]

Hallo ich habe einen PHP-Code den ich in Perl brauche. Wäre nett wenn jemand den umschreiben könnte ich kriegs einfach nicht hin.

Der original PHP-Code:

$bodytext = preg_replace('#href="http://(.*)".*>#iU', 'href="http://www.xxx.de/redirect.php?url=\1" target="_blank">', $bodytext);

Der Code sucht nach href="http://irgendwas" [optional steht hier auch noch irgendwas]> und ersetz ihn durch href="http://www.xxx.de/redirect.php?url=irgendwas" target="_blank">

Nun mein Versuch in Perl:

$bodytext =~ s/\href="http:\/\/(.*)".*?>/href="http:\/\/www.xxx.de\/redirect.php?url=$1" target="_blank">/g;

Funktioniert beim ersten Vorkommen aber den Rest lässt er unverändert. Ich bräuchte das nun so das er jedes Vorkommen ersetzt.

Vielen Dank schonmal!

 

[seblon]

okay hat sich erledigt habs hinbekommen.

 

[Efchen]

Dann lass andere, die durch Suchmaschinen in hoffnungsvoller Erwartung auf diesen Thread gekommen sind, an Deiner unendlichen Weisheit teilhaben und poste die Lösung.

Das ist doch der Sinn eines Forums. Nehmen und aber auch geben!