自動產生連結(Auto-Link)萬用函數原始碼(Perl)

Artvine

以下是Autolink的有效函數，在Perl(cgi)內均可直接套用↓
---------------
#TYPE1

$autolink = 1;
if ($autolink) { &auto_link($FORM{'body'}); }

sub auto_link {
$_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1$2<\/a>/gi;
$_[0] =~ s/([^=^\"]|^)(ftp\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1$2<\/a>/gi;
$_[0] =~ 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 {$_[0] =~ s/([^=^\"]|^)(https?\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1$2<\/a>/g;}


#TYPE3
$_[0] =~ s/([^=^\"]|^)(http\:\/\/[\w\.\~\-\/\?\&\=\;\#\:\%\+]+\.[jJ][pP][gG])/$1/g;
$_[0] =~ s/([^=^\"]|^)(http\:\/\/[\w\.\~\-\/\?\&\=\;\#\:\%\+]+\.[gG][iI][fF])/$1/g;
$_[0] =~ s/([^=^\"]|^)(http\:\/\/[\w\.\~\-\/\?\&\=\;\#\:\%\+]+\.[pP][nN][gG])/$1/g;}

#TYPE4
&auto_link($string);
sub auto_link {$_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)
/$1$2<\/a>/xg;}