半角カナが含まれているかチェックする
半角カナが入力されると非常にまずい場合がある。
半角カナが文字列の中に含まれるかどうかをチェックする。
;#
;#入力チェック
;#
if( isHanKana('アイウエオ') ){
print "半角カナが満載です。\n";
}
else{
print "半角カナがありません。\n";
}
#---------------------------------------
#半角カナが含まれているかチェックする
#---------------------------------------
sub isHanKana{
my $str = shift || return(undef);
#-- 半角カナが含まれているか --#
if( $str =~ /[\xA1-\xDF]/ ){
return(1);
}
#-- いないか --#
else{
return(0);
}
}
JISで定義されている半角カナに該当する文字コードが含まれているかどうかを調べている。
■関連ページ
・半角数字だけかチェックする
・半角英字のみかチェックする
・半角英数字のみかチェックする
・半角数字を全角数字へ変換する
・全角数字を半角数字へ変換する
・全角カナを半角カナへ変換する
・半角カナを全角カナへ変換する
