ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artur Komarov                        2:5020/400     08 Jul 2002  17:02:31
 To : All
 Subject : unpack
 -------------------------------------------------------------------------------- 
 

 Есть кусок:
 while (read(DAT, $buff, 5)) {
     ($data[3], $data[2], $data[1], $data[0], $proto{"socks5"}, $proto{"sock4"}, 
 $proto{"http80"}, $proto{"http8080"}, $proto{"http3128"})=unpack ("CCCC bbbbb", 
 $buff);
     printf "%d.%d.%d.%d:", @data;
     foreach $key (keys %proto) {
         if ($proto{"$key"}) { print " $key" };
     }
     print "\n";
 }
 Hо выводится либо "socks5" после адреса, либо ничего. Т.е. в $proto{"socks4"} и 
 т.д. всегда ничего не заносится.
 В чем может быть моя ошибка?
 -- 
 WBR, Artur
 --- ifmail v.2.15dev5
  * Origin: Euromanagement (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    unpack   Artur Komarov   08 Jul 2002 17:02:31   Re: unpack   Artem Chuprina   08 Jul 2002 17:16:51