hi ho

zumal bei diesem Dicken ding folgendes nicht erkannt wird:
ftp://ftp.heise.de

nur ein kleiner fluechtigkeitsfehler vom Autor .-) siehe bei FTP

my $lowalpha       =  '(?:[a-z])';
my $hialpha        =  '(?:[A-Z])';
my $alpha          =  "(?:$lowalpha|$hialpha)";
my $digit          =  '(?:\d)';
my $safe           =  '(?:[$_.+-])';
my $extra          =  '(?:[!*'(),])';
my $national       =  '(?:[{}|\\^~[]`])';
my $punctuation    =  '(?:[<>#%"])';
my $reserved       =  '(?:[;/?:@&=])';
my $hex            =  '(?:[\dA-Fa-f])';
my $escape         =  "(?:%$hex$hex)";
my $unreserved     =  "(?:$alpha|$digit|$safe|$extra)";
my $uchar          =  "(?:$unreserved|$escape)";
my $xchar          =  "(?:$unreserved|$escape|$reserved)";
my $digits         =  '(?:\d+)';
my $alphadigit     =  "(?:$alpha|\d)";

URL schemeparts for ip based protocols:

my $urlpath        =  "(?:$xchar*)";
my $user           =  "(?:(?:$uchar|[;?&=])*)";
my $password       =  "(?:(?:$uchar|[;?&=])*)";
my $port           =  "(?:$digits)";
my $hostnumber     =  "(?:$digits\.$digits\.$digits\.$digits)";
my $toplabel       =  "(?:(?:$alpha(?:$alphadigit|-)*$alphadigit)|$alpha)";
my $domainlabel    =  "(?:(?:$alphadigit(?:$alphadigit|-)*$alphadigit)|$alphadigit)";
my $hostname       =  "(?:(?:$domainlabel\.)*$toplabel)";
my $host           =  "(?:(?:$hostname)|(?:$hostnumber))";
my $hostport       =  "(?:(?:$host)(?::$port)?)";
my $login          =  "(?:(?:$user(?::$password)?@)?$hostport)";
my $ip_schemepart  =  "(?://$login(?:/$urlpath)?)";

my $schemepart     =  "(?:$xchar*|$ip_schemepart)";
my $scheme         =  "(?:(?:$lowalpha|$digit|[+.-])+)";

The generic form of a URL is:

my $genericurl     =  "(?:$scheme:$schemepart)";

The predefined schemes:

FTP (see also RFC959)

my $fsegment       =  "(?:(?:$uchar|[?:@&=])*)";
my $ftptype        =  "(?:[AIDaid])";
my $fpath          =  "(?:$fsegment(?:/$fsegment)*)";
my $ftpurl         =  "(?:ftp://$login(?:/$fpath(?:;type=$ftptype)?)?)";
#                                                                 ^ ^

diese beiden Fragezeichen fehlten

FILE

my $fileurl        =  "(?:file://(?:(?:$host)|localhost)?/$fpath)";

HTTP

my $httpuchar      =  "(?:(?:$alpha|$digit|$safe|(?:[!*',]))|$escape)";
my $hsegment       =  "(?:(?:$httpuchar|[;:@&=~])*)";
my $search         =  "(?:(?:$httpuchar|[;:@&=~])*)";
my $hpath          =  "(?:$hsegment(?:/$hsegment)*)";
my $httpurl        =  "(?:http://$hostport(?:/$hpath(?:\?$search)?)?)";

GOPHER (see also RFC1436)

my $gopher_plus    =  "(?:$xchar*)";
my $selector       =  "(?:$xchar*)";
my $gtype          =  "(?:$xchar)";
my $gopherurl      =  "(?:gopher://$hostport(?:/$gtype(?:$selector(?:%09$search(?:%09$gopher_plus)?)?)?)?)";

MAILTO (see also RFC822)

my $encoded822addr =  "(?:$xchar+)";
my $mailtourl      =  "(?:mailto:$encoded822addr)";

NEWS (see also RFC1036)

my $article        =  "(?:(?:$uchar|[;/?:&=])+@$host)";
my $group          =  "(?:$alpha(?:$alpha|$digit|[.+_-])*)";
my $grouppart      =  "(?:$article|$group|\*)";
my $newsurl        =  "(?:news:$grouppart)";

NNTP (see also RFC977)

my $nntpurl        =  "(?:nntp://$hostport/$group(?:/$digits)?)";

TELNET

my $telneturl      =  "(?:telnet://$login(?:/)?)";

WAIS (see also RFC1625)

my $wpath          =  "(?:$uchar*)";
my $wtype          =  "(?:$uchar*)";
my $database       =  "(?:$uchar*)";
my $waisdoc        =  "(?:wais://$hostport/$database/$wtype/$wpath)";
my $waisindex      =  "(?:wais://$hostport/$database\?$search)";
my $waisdatabase   =  "(?:wais://$hostport/$database)";
my $waisurl        =  "(?:$waisdatabase|$waisindex|$waisdoc)";

PROSPERO

my $fieldvalue     =  "(?:(?:$uchar|[?:@&]))";
my $fieldname      =  "(?:(?:$uchar|[?:@&]))";
my $fieldspec      =  "(?:;$fieldname=$fieldvalue)";
my $psegment       =  "(?:(?:$uchar|[?:@&=]))";
my $ppath          =  "(?:$psegment(?:/$psegment)*)";
my $prosperourl    =  "(?:prospero://$hostport/$ppath(?:$fieldspec)*)";

my $url            =  "$httpurl|$ftpurl|$newsurl|$nntpurl|$telneturl|$gopherurl|$waisurl|$mailtourl|$fileurl|$prosperourl";

$text="ftp://nd:parker@ftp.heise.de";
$text =~ s!($url)!<a href="$1">$1</a>!g;
print $text;

voila .-)

cua

n.d.p.

Hallo Strauch!

s<(.+?)><A HREF="$1">$1</A>g;

mhh das funktioniert so nicht, weißt du was für (.+?) rein muß? Ich versuche auch mal was zu finden.

$body =~ s/<(.*?)]/<a href="$1">$1</a>/gi;

Diese Zeile (von Calo) bewirkt wenigstens im SCB, dass man Links auf gleiche Weise wie hier setzen kann. Bei Deinem Beispiel müsste das dann $text sein.

An Calo: was ist der Unterschied zwischen (.+?) und (.*?) oder war das vorhin ein Tippfehler von Dir?

Bis danndann
PAF (patrickausfrankfurt)

<img src="/selfaktuell/extras/selfcomm.jpg" alt=""> [link:http://www.atomic-eggs.com/selfspezial/guests/advguest.cgi?view>

<img src="http://www.atomic-eggs.com/selfspezial/atomicegg.gif" id="ei" alt="Atomic Eggs - die humosophische Seite" onMouseUp="window.location.href='http://www.atomic-eggs.com/'" onmouseover="if(document.all)document.all.ei.style.cursor='hand';status='http://www.atomic-eggs.com/';return true;" onmouseout="status='';return true;">