URLまたはメールアドレスであればリンクを貼る
# 引数:文字列 # 戻値:整形済み文字列 sub hrefLink { local($_) = @_; $_ =~ s/([^=^\"]|^)((http|ftp):[!#-9\?=A-~]+)/ $1<a href=$2 target=_top>$2<\/a>/g; $_ =~ s/([\w\-\_]+\@[\w\-\_\.]+)/ <a href=mailto:$1>$1<\/a>/g; return($_); }
# 引数:文字列 # 戻値:整形済み文字列 sub hrefLink { local($_) = @_; $_ =~ s/([^=^\"]|^)((http|ftp):[!#-9\?=A-~]+)/ $1<a href=$2 target=_top>$2<\/a>/g; $_ =~ s/([\w\-\_]+\@[\w\-\_\.]+)/ <a href=mailto:$1>$1<\/a>/g; return($_); }