>>>>>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を使わないで色々やってみたらもれなくエラー・・・。

---

90: 89 04/06/15 15:30 AAS
用途はID/パスワード認証付き掲示板スクリプトに組み込みです。
実は
if ($host =~ /$i/)
これの=以下が分かってないので…=をeqにしてはいけないのかと。
（変更前のスクリプトなら動作します）

---

91: 89 04/06/16 18:50 AAS
自己解決。
別のところ間違ってた･･･ｲｯﾃｷﾏｽ

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.683s*