X-SEO > 技術メモ > Perl > 引数検査 > 電話、FAX番号検査

Perl

電話、FAX番号検査

#===========================================================================*
# プログラム名  : 電話、FAX番号検査                                         *
# プログラムID  : CheckTel                                                  *
# 使用例        : &CheckTel($_[0]);                                         *
#---------------------------------------------------------------------------*
# 入力引数[0]   : 電話、FAX番号                                             *
#---------------------------------------------------------------------------*
# 出力引数[0]   : エラー内容（無ければ異常なし）                            *
#===========================================================================*
sub CheckTel {
    #-------------------------------*
    # 変数宣言                      *
    #-------------------------------*
    my($RtnValue)   = $_[0];        # 戻り値用変数
    #-------------------------------*
    # 処理                          *
    #-------------------------------*
    return '入力文字異常' if ($RtnValue !~ /[\d-]/);
    return '入力形式異常' if ($RtnValue !~ /^0(\d+)\-(\d+)\-(\d+)$/);
    $RtnValue       =~s /-//g;
    return '桁数異常' if ($RtnValue !~ /^\d{10}$|^\d{11}$/);
    #-------------------------------*
    return;
}