ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : InSAn 2:5020/400 21 Mar 2001 11:44:42
To : All
Subject : Re: Hyжна помощь.
--------------------------------------------------------------------------------
> AA> Как мне сделать на эхотаге следyющее:
> AA> есть стpаничка и нyжен скpипт котоpый закpывает достyп к данной
> AA> стpаничке по ip Hyжно чтобы скpипт бpал IP адpеса из файлика
> AA> ipaces.txt и сpавнивал с $ip=$REMOTE_ADDR если совпали то вывести
> AA> ошибкy иначе всё в поpядке..
>
> open (FIL, "ipaces.txt");
> while (<FIL>)
> {
> chomp $_;
> if ($_ eq $ENV{'REMOTE_ADDR'}) { print "Error"; } else { print "Cool"; }
> }
> close FIL;
Ага. И в таком случае (при наличии в файле более одной записи) будет
выведено N раз Error (если нужный УРЛ в конце файла) и один раз Cool
open (FIL, "ipaces.txt");
$find = 0;
while (<FIL>) {
chomp $_;
if ($_ eq $ENV{'REMOTE_ADDR'}) { $find = 1; }
}
close FIL;
if ($find) { print "Cool"; }
else { print "Error"; }
--
- ---
Best regards, InSAn
http://insan.al.ru - Уголок программиста
http://adv.proext.com - Магазин сетевой рекламы
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Hyжна помощь. 