Opened by Seblon at 2009-07-07 09:50
Hallo ich habe einen PHP-Code den ich versucht hab in Perl umzuschreiben. Leider klappt es nicht so wie ich das möchte. Er ersetzt nur das erste Vorkommen.
Der original PHP-Code:
Der Code sucht nach href="http://irgendwas/" [optional steht hier auch noch irgendwas]> und ersetzt ihn für jeden treffer durch href="http://www.xxx.de/redirect.php?url=irgendwas" target="_blank">
Nun mein Versuch in Perl:
Wie gesagt funktioniert das nur 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:
Code: (dl
)
$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 ersetzt ihn für jeden treffer durch href="http://www.xxx.de/redirect.php?url=irgendwas" target="_blank">
Nun mein Versuch in Perl:
Code (perl): (dl
)
$bodytext =~ s/\href="http:\/\/(.*)".*?>/href="http:\/\/www.xxx.de\/redirect.php?url=$1" target="_blank">/g;
Wie gesagt funktioniert das nur 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!