自動產生連結(Auto-Link)萬用函數原始碼(Perl)
以下是Autolink的有效函數，在Perl(cgi)內均可直接套用↓---------------
#TYPE1
$autolink = 1;
if ($autolink) { &auto_link($FORM{'body'}); }
sub auto_link {
$_ =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1$2<\/a>/gi;
$_ =~ s/([^=^\"]|^)(ftp\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1$2<\/a>/gi;
$_ =~ s/([^=^\"]|^)(https\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1$2<\/a>/gi;}
#TYPE2
$autolink = 1;# URL地方自動聯結(0=no 1=yes)
#在您文字輸入處用
$FORM{'desc'} =~ s/\cM\n//g;
&auto_link($FORM{'desc'}) if ($autolink);
sub auto_link {$_ =~ s/([^=^\"]|^)(https?\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1$2<\/a>/g;}
#TYPE3
$_ =~ s/([^=^\"]|^)(http\:\/\/[\w\.\~\-\/\?\&\=\;\#\:\%\+]+\.)/$1/g;
$_ =~ s/([^=^\"]|^)(http\:\/\/[\w\.\~\-\/\?\&\=\;\#\:\%\+]+\.)/$1/g;
$_ =~ s/([^=^\"]|^)(http\:\/\/[\w\.\~\-\/\?\&\=\;\#\:\%\+]+\.)/$1/g;}
#TYPE4
&auto_link($string);
sub auto_link {$_ =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)
/$1$2<\/a>/xg;}
页:
[1]