くだすれPerl（超初心者用）2

くだすれPerl（超初心 ..

307:nobodyさん
08/06/21 17:19:06
>>305
print &autolink($comment);

sub autolink {
my $text = $_[0];
$text =~ s{(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+)}{<a href="$1">$1</a>}g;
return $text;
}

参考: Perlメモ
URLﾘﾝｸ(www.din.or.jp)

次ページ