Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re: IO::Socket connect fails to block

by mr.nick (Chaplain)
on Jan 06, 2012 at 19:56 UTC ( #946657=note: print w/replies, xml ) Need Help??

in reply to IO::Socket connect fails to block

And to comment on my own issue, this test script
use strict; use warnings; use IO::Socket::INET; sub server { my $server = IO::Socket::INET->new( LocalPort => 12000, Proto => 'tcp', ReuseAddr => 1, Listen => SOMAXCONN ); die $! unless $server; while (my $sock = $server->accept) { print "Connected to $sock\n"; print while <$sock>; } } sub client { my $sock = new IO::Socket::INET( PeerAddr => '', PeerPort => 12000, Proto => 'tcp', Blocking => 1 ); print $sock "yes\n"; print $sock "no\n"; print "sock is $sock\n"; } fork || server(); fork || client(); fork || client(); sleep 100;
Works as expected: both "yes" and "no" are correctly outputted even though only one client is connected at a time.

There must be something in my code that's eating the additional lines of text.

Sigh. Thanks for letting me talk this out! :)

mr.nick ...

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://946657]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (10)
As of 2018-06-19 13:26 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (114 votes). Check out past polls.