Perl コーディング初心者質問コーナー Part31
先日質問させていただいたものです。
以下の方法にて解決できました。
# 本文を引数にして、URL文字列の部分で infoseek を含む部分を自動リンク化（style="infoseek"）する
$_[0] =~ s/([^=^\"]|^)((http|ftp|https)\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\,\|]+)/$1<A href="$2" target="_blank" class="infoseek">$2<\/A>/g;
# 本文を引数にして、URL文字列の部分で nifty を含む部分を自動リンク化（style="nifty"）する
$_[0] =~ s/([^=^\"]|^)((http|ftp|https)\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\,\|]+nifty\.com\/junmix\/[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\,\|]+)/$1<A href="$2" target="_blank" class="nifty">$2<\/A>/g;
もっとスマートな処理も可能なのでしょうが、とりあえず問題無さそうなので良しとします。
アドバイスくださった皆様、ありがとうございました。
以下の方法にて解決できました。
# 本文を引数にして、URL文字列の部分で infoseek を含む部分を自動リンク化（style="infoseek"）する
$_[0] =~ s/([^=^\"]|^)((http|ftp|https)\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\,\|]+)/$1<A href="$2" target="_blank" class="infoseek">$2<\/A>/g;
# 本文を引数にして、URL文字列の部分で nifty を含む部分を自動リンク化（style="nifty"）する
$_[0] =~ s/([^=^\"]|^)((http|ftp|https)\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\,\|]+nifty\.com\/junmix\/[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\,\|]+)/$1<A href="$2" target="_blank" class="nifty">$2<\/A>/g;
もっとスマートな処理も可能なのでしょうが、とりあえず問題無さそうなので良しとします。
アドバイスくださった皆様、ありがとうございました。
|
|
|