Email::Find und E-Mails in Links? (gelöst) - #137863 (Fragen zu Perl-Modulen)

topeg

2010-06-01 19:13

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Hüstel:

Code (perl): (dl )

identifylinks (\$testtext,'<a href="%s" target="_blank">%s</a>','<a href="mailto:%s">%s</a>');
print "<pre>$testtext</pre>";
identifylinks_topeg (\$testtext,'<a href="%s" target="_blank">%s</a>','<a href="mailto:%s">%s</a>');
print "<pre>$testtext</pre>";

Kein Wunder das meines "nicht funktioniert" wenn du schon den bearbeiteten String noch einmal durchläufst!
mach mal daraus:

Code (perl): (dl )

my $txt=$testtext;
identifylinks (\$txt,'<a href="%s" target="_blank">%s</a>','<a href="mailto:%s">%s</a>');
print "<pre>$txt</pre>";

my $txt_topeg=$testtext;
identifylinks_topeg (\$txt_topeg,'<a href="%s" target="_blank">%s</a>','<a href="mailto:%s">%s</a>');
print "<pre>$txt_topeg</pre>";