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

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

ユーザ用ツール


サイドバー

言語

サーバ関連

ツール

API

読み物

その他

perl:expr_postcd

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);
  }
}

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

関連書籍

failed to fetch data: unkown error

failed to fetch data: unkown error

failed to fetch data: unkown error

関連ページ

perl/expr_postcd.txt · 最終更新: 2020/06/23 14:10 (外部編集)