ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexei Vi. Baikalov                  2:5020/400     26 Mar 2001  06:39:26
 To : All
 Subject : АйПи проверка!
 -------------------------------------------------------------------------------- 
 

 #!/usr/bin/perl
 @ipmask= ("xxx.xxx.xxx.xxx","xxx.xxx.xxx.xxx");
 $userip = $ENV{'REMOTE_ADDR'};
 for $i (@ipmask){
 if ($userip == $i){
 open(HFILE,"<pathtofile/1.html");
 while (<HFILE>){
  print;
 }}}
 close (HFILE);
 ------------------------------------------
 А как сделать, чтобы проверка АйПи была по маске? И еще ... знаю что
 скрипт очень корявый, если у кого есть что подобное выложите. В
 perl.chainik я не пробился, так что звиняйте если что! Сам я в перле
 второй день всего :(((
 
 --- ifmail v.2.15dev5
  * Origin: Enisey Infosystems (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    АйПи проверка!   Alexei Vi. Baikalov   26 Mar 2001 06:39:26   Re: АйПи проверка!   Alexei Vi. Baikalov   26 Mar 2001 08:28:10