X-SEO > 技術メモ > Perl > 引数検査 > 郵便番号検査

Perl

郵便番号検査

#===========================================================================*
# プログラム名  : 郵便番号検査                                              *
# プログラムID  : CheckPostalCode                                           *
# 使用例        : &CheckPostalCode($_[0]);                                  *
#---------------------------------------------------------------------------*
# 入力引数[0]   : 郵便番号                                                  *
#---------------------------------------------------------------------------*
# 出力引数[0]   : エラー内容（無ければ異常なし）                            *
#===========================================================================*
sub CheckPostalCode {
    #-------------------------------*
    # 処理                          *
    #-------------------------------*
    return ($_[0] !~ /^\d{3}\-\d{4}$/) ? '入力形式異常' : undef;
}