X-SEO > 技術メモ > Perl > 引数検査 > メールアドレス検査

Perl

メールアドレス検査

#===========================================================================*
# プログラム名  : メールアドレス検査                                        *
# プログラムID  : CheckMailAddress                                          *
# 使用例        : &CheckMailAddress($_[0]);                                 *
#---------------------------------------------------------------------------*
# 入力引数[0]   : メールアドレス                                            *
#---------------------------------------------------------------------------*
# 出力引数[0]   : エラー内容（無ければ異常なし）                            *
#===========================================================================*
sub CheckMailAddress {
    #-------------------------------*
    # 処理                          *
    #-------------------------------*
    return '未記入' unless ($_[0]);
    return '区切文字が連続記述されています' if ($_[0] =~ /([.@])\1/);
    return '入力形式異常' if ($_[0] !~ /^[a-zA-Z0-9][\w.-]*\@+[\w.-]+\.[a-zA-Z]{2,6}$/);
    #-------------------------------*
    return;
}