Исходное сообщение
"Широковещательный запрос и поимка ответа (perl sockets udp)" Отправлено gr, 07-Апр-05 15:34
>Задача: в сети живет сервер (возможно, что и не один), о котором >известно, что если он поймает на определенный порт широковещательный запрос, то >обязательно ответит отправителю. Нужно послать такой запрос и получить список всех >ответивших серверов. Желательна реализация на Perl'e. > >Вот такой кусок кода: ><--- >$sock = IO::Socket::INET->new(Proto     => 'udp', >                              Broadcast => 1, >                              LocalPort => $srcport, >                              PeerPort  => $dstport, >                              PeerAddr  => inet_ntoa(INADDR_BROADCAST) >             >           >       ) or die "sender >socket: $@\n"; >$sock->send($msg) or die "send: $!"; >---> >шлет broadcast запрос. В сниффере (ethereal) я вижу приходящий ответ... Но вот >поймать его никак не получается... И сразу встает вопрос: если этих >ответов будет несколько, что делать? Спасибо. в perl cookbook есть пример сервера udp