Re: Using select() on only one socket

[ambrus]

Sorry for stating the obvious if you have done all of the below.

First, you should just try to change the loop to a simple

while (1){
    $line = <$socket>;
    print $line;
}

for testing.

If that prints the lines, then I don't know what the problem is.

If that doesn't print anything either, then the problem is probably not in the select loop. It could be that you don't receive complete lines, as others have suggested; or that you don't receive any data on the socket (maybe the other side is waiting for you to send something first); or that you are trying to read from a listening socket (as opposed to an accepted or a connected socket).

Also you have checked that the loop actually starts, the program doesn't hang somewhere before that, haven't you?

[ivanatora]

I tried that, and it prints the incoming line. Also the select loops starts. I've change the following:

print "bob\n";
my $sel = IO::Select->new();
$sel->add($sock);
while (1){
print "!";
if ($b = $sel->can_read(0.5)){
        $line = <$socket>;
        print $line;
} else {  
        print ".";
}

} #end of while 1

I see 'bob' printed, so the program is running there. After that I see infinite '!'s, so the loop starts. But nothing more. No dots, no lines.