|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : InSAn 2:5020/400 21 Mar 2001 16:00:23
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"; }
Да, и еще в догонку....
В проверке при совпадении добавить last
if ($_ eq $ENV{'REMOTE_ADDR'}) { $find = 1; last; }
--
- ---
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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
