- 709 名前：デフォルトの名無しさん mailto:sage [2018/10/29(月) 00:52:40.24 ID: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} でもマッチ
