Re^4: New to perl: IO Select question :(


Your skill will accomplish what the force of many cannot
	PerlMonks

Re^4: New to perl: IO Select question :(

by CompleteMoron (Initiate)

on Aug 21, 2005 at 00:20 UTC ( #485451=note: print w/replies, xml )

Need Help??

in reply to Re^3: New to perl: IO Select question :(
in thread New to perl: IO Select question :(

Yup I'v seen that example, and tried it with can_read aswell, same thing happens :(

Comment on Re^4: New to perl: IO Select question :(

Replies are listed 'Best First'.

Re^5: New to perl: IO Select question :(
by Roger (Parson) on Aug 21, 2005 at 00:34 UTC

my $sock = IO::Socket::INET->new(
                                Proto=>"tcp",
                                LocalHost=>"Localhost",
                                Listen=>16,
                                Reuse=>1,
                                LocalPort=>$ARGV[0]
                                ) or die("Could not create socket!\n")
+;


my $readSet = new IO::Select();
$readSet->add($sock);

my $rhSet = IO::Select->select($readSet);

while(my @ready = $rhSet->can_read(0))
{
        foreach $rh(@ready)
        {
                if($rh == $sock)
                {
                        $newSocket=$rh->accept();
                        $readSet->add($newSocket);
                } else
                {
                        $buf=<$rh>;
                        if($buf)
                        {
                                printf "$buf";
                        } else
                        {
                                $readSet->remove($rh);
                                close($rh);
                        }
                }
        }
}
[download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom