$text nach URLs durchsuchen und durch <a href...> ersetzen

[Andres Freund]

HI

Also, tut mir leid, aber ich kann kein Modul anbieten, aber ich hab mal schnell ein einfaches scipt geschrieben, mit dem es bei mir ganz gut geht:

#ist nur ein ausschnitt
if ($text =~ m/(https?://)?(.{3,}.)?(.{2,}).(.{2,})/gi)
{
$text = "<a href="$1$2$3.$4">$text</a>";
print $text;
}
 Also das hier ist _nicht_ gausführlich getested worden aber ich denke so ungefähr so sollte es klappen.

mfg