Исходное сообщение
"Широковещательный запрос и поимка ответа (perl sockets udp)" Отправлено yumm, 07-Апр-05 15:42
>в perl cookbook есть пример сервера udp ну хорошо (про пример я есс-но знаю)... пишу я дальше следующее: <--- $sock->close(); $sock = IO::Socket::INET->new(LocalPort => $srcport, Proto => 'udp')   or die "socket: $@"; while ($sock->recv($msg, $maxlen)) {     my ($port, $ipaddr) = sockaddr_in($sock->peername);     my $ip = inet_ntoa($ipaddr);     print "$ip\n"; } ---> ...и ничего не принимаю... хотя в сниффере пакетов только летают. почему?

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>в perl cookbook есть пример сервера udp > ну хорошо (про пример я есс-но знаю)... пишу я дальше следующее: > <--- > $sock->close(); > $sock = IO::Socket::INET->new(LocalPort => $srcport, Proto => 'udp') > or die "socket: $@"; > while ($sock->recv($msg, $maxlen)) { > my ($port, $ipaddr) = sockaddr_in($sock->peername); > my $ip = inet_ntoa($ipaddr); > print "$ip\n"; > } > ---> > ...и ничего не принимаю... хотя в сниффере пакетов только летают. почему?
	Введите код, изображенный на картинке: