>>>>>CGI改造工房Part2<<<<< (182ﾚｽ)
上下前次1-新

---

89(2): 04/06/15 15:21 AAS
「特定のＩＰのアクセスを不能にするスクリプト」を逆にしたいのですが
IFをunlessにして良いものでしょうか。(PerlCGI）
sub check {
@allow = ('hoge.jp');
$host = gethostbyaddr(pack("C4", split(/\./)), 2) };
foreach $i (@allow) {
#次のifをunlessに変える
if ($host =~ /$i/) {&error;}
#↓これ不要？errorサブルーチンにexit;入ってますけど
exit;
}
}
}

今ふと他スレで思いついたので設置はしてません。
unlessを使わないで色々やってみたらもれなくエラー・・・。

---

上下前次1-新書関写板覧索設栞歴

---

あと 93 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.002s