18/10/29 00:52:40.24 BYis7ms7.net
・ perl 5.22
use strict;
use warnings;
use encoding "cp932";
binmode STDERR, ':encoding(cp932)';
if ( "ｱｲｳｴｵ" =~ /\p{Katakana}/ ){ print "match!! <$&>\n"; }
else { print "no match..\n"; }
# 結果： match!! <ｱ>
・ bregonig.dll (shift_jis)
検索：\p{Katakana}
対象：ｱｲｳｴｵ
結果：見つかりません
サクラエディタ (unicode) ではマッチした
(?a)\p{Katakana} でもマッチ