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

---

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)

---

次ページ

続きを表示

1を表示

最新レス表示

レスジャンプ

類似スレ一覧

スレッドの検索

話題のニュース

おまかせリスト

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch