とあるエンジニアの闇歴史帳

この文書は読取専用です。文書のソースを閲覧することは可能ですが、変更はできません。もし変更したい場合は管理者に連絡してください。

====== 半角カナが含まれているかチェックする - Perl ======
~~socialite~~
<note important>この記事は2006年10月21日に書かれたものです。</note>

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

===== サンプル =====
<code perl>
;#
;#入力チェック
;#

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


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

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

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

===== 関連書籍 =====
{{amazon>jp:4774172707}}
<html><p style="clear:both"></p></html>

{{amazon>jp:4774177407}}
<html><p style="clear:both"></p></html>

{{amazon>jp:4873113008}}
<html><p style="clear:both"></p></html>


{{tag>CGI・Perl例文集 Perl 正規表現 半角カナ validation}}
~~socialite~~

とあるエンジニアの闇歴史帳

ユーザ用ツール

関連ページ

ページ用ツール