Beitrag von Rolf Schubert (21 Beiträge) am Sonntag, 10.Oktober.2004, 21:37.
Re: regex Links ersetzen
Also ich nutze bei mir folgendes:
foreach $x (split "\n", $text)
{
$x=~s#\http:\/\/www.(\S+)#www.$1#gi;
$x=~s#\www.(\S+)#<a href=\"http:\/\/www.$1\">www.$1\<\/a>#gi;
out "$x";
next;
}
Damit wird der Link Klickbar gemacht, wenn du den Link nicht ersetzen willst, dann ädere es in folgnder Weise.
$x=~s#\www.(\S+)#<a href=\"http:\/\/www.$1\">more Info\<\/a>#gi;
Das sollte klappen.
Aber Sander und CB kennen da mit Sicherheit noch was besseres und kürzeres.
Gruß Rolf