正規表現 Part5 - 暇つぶし2ch

正規表現 Part5 at TECH

39:デフォルトの名無しさん
08/06/19 13:54:59
perl だとこんな具合

$htm = <<_EOF;
<A href="URLﾘﾝｸ(www.xxx.com)" target="_blank">ＡA</A>
<A href="URLﾘﾝｸ(www.123.com)" target="_blank">123</A>
<A href="URLﾘﾝｸ(www.xxx.com)" target="_blank">ＡＢ</A>
<A href="URLﾘﾝｸ(www.123.com)" target="_blank">123</A>
<A href="URLﾘﾝｸ(www.xxx.com)" target="_blank">ＢＣ</A>
_EOF

$htm =~ s/<(a href=)"(http:\/\/www.xxx.com\/[^"]+)"([^>]*)>(.*?)(<\/a>)/<$1$2$3 title="$4 $2">$4$5/ig;
print '-'x78,"\n";
print $htm;
print '-'x78,"\n";

実行結果
------------------------------------------------------------------------------
<A href=URLﾘﾝｸ(www.xxx.com) target="_blank" title="ＡA URLﾘﾝｸ(www.xxx.com)">ＡA</A>
<A href="URLﾘﾝｸ(www.123.com)" target="_blank">123</A>
<A href=URLﾘﾝｸ(www.xxx.com) target="_blank" title="ＡＢ URLﾘﾝｸ(www.xxx.com)">ＡＢ</A>
<A href="URLﾘﾝｸ(www.123.com)" target="_blank">123</A>
<A href=URLﾘﾝｸ(www.xxx.com) target="_blank" title="ＢＣ URLﾘﾝｸ(www.xxx.com)">ＢＣ</A>
------------------------------------------------------------------------------