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

この記事は2006年10月21日に書かれたものです。

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

サンプル

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

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

関連書籍

新屋 良磨, 鈴木 勇介, 高田 謙
ISBN 4774172707
¥ 3,564

failed to fetch data: unkown error

コメント

コメントを入力. Wiki文法が有効です:
S᠎ V Q B I