ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     08 Jul 2002  17:16:51
 To : Artur Komarov
 Subject : Re: unpack
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Artur Komarov.
 
 AK> Есть кусок:
 AK> while (read(DAT, $buff, 5)) {
 AK>     ($data[3], $data[2], $data[1], $data[0], $proto{"socks5"},
 AK> $proto{"sock4"}, $proto{"http80"}, $proto{"http8080"},
 AK> $proto{"http3128"})=unpack ("CCCC bbbbb", $buff);    printf "%d.%d.%d.%d:", 
 AK> @data;    foreach $key (keys %proto) {        if ($proto{"$key"}) { print " 
 AK> $key" };    }    print "\n"; } Hо выводится либо "socks5" после адреса, либо
 AK> ничего. Т.е. в $proto{"socks4"} и т.д. всегда ничего не заносится. В чем
 AK> может быть моя ошибка?
 
 В чтении документации по диагонали. Все идущие подряд b пакуют одну строку, и
 в одну же, соответственно, распаковывают.
 
 -- 
 Artem Chuprina
 Communiware.net
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
 --- ifmail v.2.15dev5
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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

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