X-SEO > 技術メモ > Perl > 引数検査 > URL検査

Perl

URL検査

#===========================================================================*
# プログラム名  : URL検査                                                   *
# プログラムID  : CheckURL                                                  *
# 使用例        : &CheckURL($_[0]);                                         *
#---------------------------------------------------------------------------*
# 入力引数[0]   : URL                                                       *
#---------------------------------------------------------------------------*
# 出力引数[0]   : エラー内容（無ければ異常なし）                            *
#===========================================================================*
sub CheckURL {
    #-------------------------------*
    # 処理                          *
    #-------------------------------*
    return '入力形式異常' if ($_[0] !~ /^http:\/\/([a-zA-Z0-9-_.]+)(.*)$/);
    return '末部に / がないか入力形式異常' unless ($2);
    #-------------------------------*
    return;
}