Perlでの全角チェック

EUCの場合
sub check(){
if ($_[0] =~ /[\x80-\xFF]/) {
#全角
return “全角”;
}
}
文字列に全角文字が含まれているかチェック

Thank you for reading this post, don't forget to subscribe!