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

コピペで使える便利Wiki ※現在構築中です。

ユーザ用ツール


perl:expr_postcd

差分

このページの2つのバージョン間の差分を表示します。

この比較画面にリンクする

perl:expr_postcd [2017/12/14 20:18]
perl:expr_postcd [2020/06/23 14:10] (現在)
行 1: 行 1:
 +======  7桁の郵便番号の書式かチェックする - Perl ======
 +~~socialite~~
 +<note important>この記事は2006年10月21日に書かれたものです。</note>
  
 +7桁の郵便番号かどうかチェックしたい。
 +具体的には「123-4567」または「1234567」といった書式かどうかをチェックする。
 +
 +===== サンプル =====
 +<code perl>
 +;#
 +;#入力チェック
 +;#
 +
 +if( isPostCD('123-4567') ){
 +  print "郵便番号です。\n";
 +}
 +else{
 +  print "郵便番号ではありません。\n";
 +}
 +
 +
 +#---------------------------------------
 +#郵便番号かチェックする
 +#---------------------------------------
 +sub isPostCD{
 +  my $str = shift || return(undef);
 +
 +  #-- 郵便番号か --#
 +  if( $str =~ /^[0-9]{3}-{0,}[0-9]{4}$/ ){
 +    return(1);
 +  }
 +  #-- 郵便番号ではないか --#
 +  else{
 +    return(0);
 +  }
 +}
 +</code>
 +
 +注意点としては、あくまで書式のチェックであって実在する郵便番号かどうかのチェックではない。実在するかどうかを確認したい場合は、[[http://www.post.japanpost.jp/zipcode/download.html|日本郵政公社が公開しているデータ]]とつきあわせる必要がある
 +
 +===== 関連書籍 =====
 +{{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~~

関連ページ