in reply to $Socket->connected Not Returning False?
You could use sysread like this:
Ant9000
use IO::Socket::INET; my $Socket = IO::Socket::INET->new( PeerAddr=>"perlmonks.org:80" ) or die; $Socket->send("GET /404 HTTP/1.0$/$/") or die; my $still_connected=1; while($still_connected){ my $Byte; my $read=sysread($Socket,$Byte,1); if(defined($read)){ if($read==0){ $still_connected=0; }else{ print "Byte: '$Byte'$/"; } }else{ if($!==EAGAIN()){ print "No byte.$/"; }else{ print "Error $!.$/"; $still_connected=0; } } }
Ant9000
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: $Socket->connected Not Returning False?
by BronzeWing (Monk) on Oct 21, 2003 at 17:55 UTC | |
Re^2: $Socket->connected Not Returning False?
by ivanatora (Sexton) on Jan 15, 2006 at 09:10 UTC | |
by tirwhan (Abbot) on Jan 15, 2006 at 09:32 UTC |
In Section
Seekers of Perl Wisdom