• Twitter
• Facebook
• Tumblr
• Email

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

;#
;#入力チェック
;#
 
if( isHanKana('アイウエオ') ){
  print "半角カナが満載です。\n";
}
else{
  print "半角カナがありません。\n";
}
 
 
#---------------------------------------
#半角カナが含まれているかチェックする
#---------------------------------------
sub isHanKana{
  my $str = shift || return(undef);
 
  #-- 半角カナが含まれているか --#
  if( $str =~ /[\xA1-\xDF]/ ){
    return(1);
  }
  #-- いないか --#
  else{
    return(0);
  }
}

JISで定義されている半角カナに該当する文字コードが含まれているかどうかを調べている。

failed to fetch data: unkown error

failed to fetch data: unkown error

failed to fetch data: unkown error

• Twitter
• Facebook
• Tumblr
• Email