# 許可するIPアドレスの登録
@ip_addr_s = (
'192.168.1.1',
'192.168.1.2',
'192.168.1.5',
'192.168.1.9',
'192.168.1.11'
);
# アクセス時のIPアドレスの取得
$ip_addr = $ENV{REMOTE_ADDR};
# IPアドレスの比較
$addr_right = '0';
if ($#ip_addr_s < 0)
{
$addr_right = '1';
}
else
{
foreach $data (@ip_addr_s)
{
if ($ip_addr =‾ /^$data$/) { $addr_right = '1';}
}
}
# 比較した結果の処理
if ($addr_right ne '1') { &error('アクセスは許可出来ません。');}
=============================================================================
