ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexsandr Suharev                    2:5064/7.44    05 May 2001  12:18:07
 To : All
 Subject : Вопрос
 -------------------------------------------------------------------------------- 
 

  3дPACTE Allъъъ ъъ ъ
 Вот кусочек кода:
 
 @ip = ("");
 $i = 0;
 
 if (grep(/$userIP/, @ip) eq "0") {
    $ip[++$i] = $userIP;
 }
 
 Читаются ip и если их нет в массиве, то они добавляются туда.
 Hо есть проблемка если считан ip 192.168.1.1, а в массиве есть
 192.168.1.12, ток вот как сделать что бы он не обрезал ip?
 Пробовал так:
 
 if (grep(/$userIP."."/, @ip) eq "0") {
    $ip[++$i] = $userIP.".";
 }
 
 Hо тогда скрипт очень долго выполняется и создает темповый файт, пока не
 заканьчивается свободное место на диске.
  ByE... .. .                                                       DiVeRSE
 [][][]ъъъ
 --- Terminate 5.00/Pro 
  * Origin: ... и тебя напишут... (2:5064/7.44)
 
 

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

Тема:    Автор:    Дата:    Вопрос   Alexsandr Suharev   05 May 2001 12:18:07   Вопрос   Dmitry Smolin   05 May 2001 18:01:12   Re: Вопрос   A.Radoselsky   05 May 2001 18:43:20