半角カナが含まれているかチェックする - Perl

半角カナが入力されると非常にまずい場合がある。
半角カナが文字列の中に含まれるかどうかをチェックする

サンプル

サンプル

;#
;#入力チェック
;#

if( isHanKana('アイウエオ') ){
  print "半角カナが満載です。\n";
}
else{
  print "半角カナがありません。\n";
}


#---------------------------------------
#半角カナが含まれているかチェックする
#---------------------------------------
sub isHanKana{
  my $str = shift || return(undef);

  #-- 半角カナが含まれているか --#
  if( $str =~ /[\xA1-\xDF]/ ){
    return(1);
  }
  #-- いないか --#
  else{
    return(0);
  }
}