nicht angemeldet
Hi nochmal!
Zu dieser Sache mit $1, das gibt einfach das wieder, was im ersten Teil des s/// in Klammern steht (in meinem Beispiel den Textteil, den $URLPattern gefunden haette).
[lots of regexps]
my $url = "$httpurl$ftpurl$newsurl$nntpurl$telneturl$gopherurl$waisurl$mailtourl$fileurl$prosperourl";
Ich nehme mal an, dass Du von all diesen URLs nur HTTP, FTP und MailTo brauchst. Den Rest kannst Du also weglassen, womit Du auch nicht mehr alles von dem davorstehenden brauchst.
$Formular[7] =~ s!$url!<a href="$&">$&</a>!g;
Hier wiederhole ich nochmal meinen (ungetesteten!) Verbesserungsvorschlag:
$text =~ s!($url)!<a href="$1">$1</a>!g;
sollte ein wenig performanter sein (wenn das noch auffaellt).
Ich halte den Aufwand uebrigens fuer uebertrieben. Ich wuerde Links einfach so setzen lassen, wie in diesem Forum, also in [link:] einfassen (siehe http://www.teamone.de/selfaktuell/forum/forumsfaq_2.htm#a4). Geht ungefaehr so:
s|[link:(.+?)]|<A HREF="$1">$1</A>|g;
So long