"Text zu Link" + nach erstem alleinstehendem Slash "..." setzen

[Hans]

Hi Mario,

probier's mal so:

#!/usr/bin/perl

RegExp: /([\w]+://[\w-?&;#~=./@]+[\w/])/i

Ersetz: <a href="$1">$1</a>

$a = "http://www.test.de/leipzig/seite1/user.php&krempelusw_usf_etc";
if (length($a) > 20) {
   $b=substr($a,0,20)."...";
   $a =~ s/([\w]+://[\w-?&;#~=./@]+[\w/])/<a href="$1">$b</a>/i;
}
else {
   $a =~ s/([\w]+://[\w-?&;#~=./@]+[\w/])/<a href="$1">$1</a>/i;
}
print "$a\n"

Mit length() ueberpruefst Du die Laenge des Strings.
mit substr(string,start,ende) gibst Du einen Teilstring aus.
Und dieser Teilstring steckt in der Variable $b drin, die dann statt dem langen $a ausgegeben wird.

Gruß

Hans