ＨＰ制作初心者用スレッド Ver3

>>846
チルダ逆。
@check_ipad = ("$ENV{'REMOTE_ADDR'}") if ($ENV{'REMOTE_ADDR'} =~ /^123\.34/);

でも、それならこうのほうが使いやすいんじゃないかな？
$check_fl = 0;
if($ENV{'REMOTE_ADDR'} =~ /^\Q123.34.56.\E/){$check_fl = 1;}
#以下、必要なだけ追加
elsif($ENV{'REMOTE_ADDR'} =~ /^\Q次のIP\E/){$check_fl = 1;}
elsif($ENV{'REMOTE_ADDR'} =~ /^\Q次のIP\E/){$check_fl = 1;}
@check_ipad = ("$ENV{'REMOTE_ADDR'}") if($check_fl);

もっと効率良くしたかったらPerl板で聞いた方が良いと思う。