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:
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:
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!
Der original PHP-Code:
PHP:
$bodytext = preg_replace('#href="http://(.*)".*>#iU', 'href="http://www.xxx.de/redirect.php?url=\1" target="_blank">', $bodytext);
Nun mein Versuch in Perl:
Code:
$bodytext =~ s/\href="http:\/\/(.*)".*?>/href="http:\/\/www.xxx.de\/redirect.php?url=$1" target="_blank">/g;
Vielen Dank schonmal!