>Задача: в сети живет сервер (возможно, что и не один), о котором >известно, что если он поймает на определенный порт широковещательный запрос, то >обязательно ответит отправителю. Нужно послать такой запрос и получить список всех >ответивших серверов. Желательна реализация на 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
|