Нет, я делаю следующим образом:
socket(S,PF_INET,SOCK_DGRAM,getprotobyname("udp")) || die "socket: $!";
$ipaddr=inet_aton($zielIP);
$portaddr=sockaddr_in($port,$ipaddr);
send(S,$msg,0,$portaddr) == length($msg) || die "cannot send to $ip($port): $!";
$portaddr=recv(S,$msg,350,0) or die "recv: $!";
($portno,$ipaddr)=sockaddr_in($portaddr);
$host=gethostbyaddr($ipaddr,AF_INET);
Так вот, если никакого ответа нет, то скрипт виснет на строке:
$portaddr=recv(S,$msg,350,0) or die "recv: $!";
Как этого избежать?
lalex , скрипт не на халявном хостере.