7桁の郵便番号の書式かチェックする - Perl

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

7桁の郵便番号かどうかチェックしたい。 具体的には「123-4567」または「1234567」といった書式かどうかをチェックする。

サンプル

;#
;#入力チェック
;#
 
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);
  }
}

注意点としては、あくまで書式のチェックであって実在する郵便番号かどうかのチェックではない。実在するかどうかを確認したい場合は、日本郵政公社が公開しているデータとつきあわせる必要がある

関連書籍

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

failed to fetch data: unkown error

Damian Conway
ISBN 4873113008
¥ 4,644

コメント

コメントを入力. Wiki文法が有効です:
I Y T K J