$Bill Luebkert wrote:
> Foo Ji-Haw wrote:
>
>
>>Hi all,
>>
>>Thanks to John and Bill, I've managed to get my socket disconnect
>>detection working.
>>I'd like to share my check code with all:
>> my $BytesRead = $sock->sysread($buffer,1024);
>> if (!defined($BytesRead))
>> {
>> print "WARNING: Connection lost!\n";
>> exit;
>> }
>
>
> I use something like this:
>
> sub read_sock { # my $bytes = read_sock ($S, \$buffer, [$bufoff,
> [$buflen]])
> my $sock = shift;
> my $bufref = shift;
> my $off = shift || 0; # you can reverse these two args if you
> like
> my $len = shift || MAX_READ; # 4096/8192 whatever is appropriate for
> your data
>
> my $bytes = sysread $sock, $bufref, $len, $off;
Forgot to deref the buf ref:
my $bytes = sysread $sock, $$bufref, $len, $off;
> if (not defined $bytes or $bytes < 0) { # read error
> return -1;
> } elsif ($bytes == 0) { # eof
> return 0;
> }
> return $bytes;
>
> }
>
>
>>My next obstacle is with sysread blocking. I tried to do the following:
>> my $sock = new IO::Socket::INET (
>> PeerAddr => $ARGV[0],
>> PeerPort => '8000',
>> Proto => 'tcp',
>> Reuse=>1,
>> );
>> $sock->blocking(0);
>>
>>But it still blocks. Browsing the web, David Smith posted the following
>>code:
>>
>>my $select = = IO::Select->new();
>>$select->add( $socket );
>>if( $select->can_read( 0.5 ) )
>>{
>> $response = <$socket>;
>
>
> You want to call the read sub above here and check the return for
> err/eof/bytes. Don't use <> syntax.
>
>
>> print $response . "\n";
>>} else
>>{
>> print "No data on socket.\n";
>>}
>>
>>I'd like to ask if using IO::Select is the best/ only way to do a
>>non-blocking sysread(), or am I missing something?
>
>
> IO::Select is the best way to see if you have data to read on a
> socket. sysread is the way to read it.
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
