Perl
URL存在確認
#===========================================================================*
# プログラム名 : URL検査 *
# プログラムID : ExistenceURL *
# 使用例 : &ExistenceURL($_[0]); *
#---------------------------------------------------------------------------*
# 入力引数[0] : URL *
#---------------------------------------------------------------------------*
# 出力引数[0] : URL有無 *
#===========================================================================*
sub ExistenceURL {
#-------------------------------*
# モジュール使用宣言 *
#-------------------------------*
use LWP::Simple;
#-------------------------------*
return get($_[0]);
}
