OpenForum RSS: Timeout on perl socket udp

Timeout on perl socket udp (Nikolai Sokolov)

Thu, 29 Jan 2009 11:42:31 GMT

>� �� . ��:
>my $socket = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port, Proto => 'udp', TimeOut => 5 );
>syswrite $socket, "\xFF\xFF\xFF\xFFTSource Engine Query\x00";
>sysread $socket, $buffer, 96;
>close $socket;
>�� , ��
>�� $buffer, �� , ��
>��.. �� :( ��
>�� 2 �� , � �� ?
>

# �� alarm() . �� Time::HiRes (www.cpan.org)
##############################################
use Errno qw(EAGAIN);

DUAL_PROC: {

if ($pid = fork) {
waitpid($pid,0);
} elsif (defined $pid) {
alarm($n);
#
# �� $n ��
#
} elsif ($! == EAGAIN ) { print "�� "; redo DUAL_PROC; }
else { die "�� : $!"; }

$SIG{CHILD} = sub { 1 } until ( waitpid(

Timeout on perl socket udp (DemonShi)

Fri, 04 Jan 2008 20:00:26 GMT

Timeout on perl socket udp (angra)

Thu, 03 Jan 2008 07:41:54 GMT

>� �� ?

1. �� .
�� /�� Perl �� . �� , �� read/sysread �� . �� -�� . �� -�� . �� /�� . � �� perldoc IO::Socket::INET � �� :
Blocking Determine if connection will be blocking mode
If "Blocking" is set to 0, the connection will be in nonblocking mode. If not specified it defaults to 1 (blocking mode).

2. �� select
�� . �� man � �� , �� Net::DNS::Async.

Timeout on perl socket udp (DemonShi)

Wed, 02 Jan 2008 10:06:45 GMT

>>>> TimeOut => 5
>>>
>>>� �� case insensitive?
>>>� �� Timeout, � �� TimeOut.
>>
>>�� case insensitive ��?
>
>�� .

��, �� Timeout �� ..

Timeout on perl socket udp (anonymous)

Tue, 01 Jan 2008 23:40:13 GMT

>>> TimeOut => 5
>>
>>� �� case insensitive?
>>� �� Timeout, � �� TimeOut.
>
>�� case insensitive ��?

�� .

Timeout on perl socket udp (DemonShi)

Mon, 31 Dec 2007 15:52:31 GMT

>> TimeOut => 5
>
>� �� case insensitive?
>� �� Timeout, � �� TimeOut.

�� case insensitive ��?

Timeout on perl socket udp (Michelnok)

Mon, 31 Dec 2007 15:06:26 GMT

> TimeOut => 5

� �� case insensitive?
� �� Timeout, � �� TimeOut.

Timeout on perl socket udp (DemonShi)

Mon, 31 Dec 2007 12:20:27 GMT

>1. ��
>2. �� select, �� , �� .
>

� �� ?

Timeout on perl socket udp (angra)

Mon, 31 Dec 2007 01:27:11 GMT

1. ��
2. �� select, �� , �� .