Re^3: how send message without new-line terminator on IO::Socket

You cannot use <$new_sock> anymore, because that waits for a newline character. You need to use read instead. You also likely want nonblocking IO using the four-argument version of select. Likely, IO::Select wraps this up nicely for you. There is example code on how to use IO::Select in its documentation. For select, I didn't find any nice documentation.

Basically, select and IO::Select return once a socket is ready to receive more data or to send more data, and tell you which socket(s).

There are three multiplexing frameworks I know of that handle nonblocking sockets in a manner that is more or less inconveniencing - POE, Danga::Socket and Coro. All three have different uses and different shortcomings.

Comment on Re^3: how send message without new-line terminator on IO::Socket Select or Download Code

Replies are listed 'Best First'.
Re^4: how send message without new-line terminator on IO::Socket by earlati2 (Beadle) on Jul 26, 2006 at 14:58 UTC
read is not ok, because is mapped on fread instead I used sysread. I replaced the statemente :$sres = <$new_sock>; with the following code: (mybe it should be helpfull to someone else ) $rin=""; $sres = ""; vec($rin,fileno($new_sock),1) = 1; $nfound=select( $rin, undef, undef, .1 ); while ( $nfound ) { sysread( $new_sock, $c, 1 ); chomp $c; $sres .= $c; $nfound=select( $rin, undef, undef, .1 ); }	[reply]
Re^5: how send message without new-line terminator on IO::Socket (sysread chomp select) by tye (Sage) on Jul 26, 2006 at 15:12 UTC
`sysread( $new_sock, $sres, 1024, length($sres) )` [download] would be more efficient (see sysread). Why are you chomping if you aren't sending newlines? Why are you exiting your loop if 1/10th of second passes with no input? Shouldn't you exit when you reach end-of-file instead? Why use select if you don't have anything asychronous to do? Just read until EOF, no? - tye	[reply] [d/l]
Re^6: how send message without new-line terminator on IO::Socket (sysread chomp select) by earlati2 (Beadle) on Jul 27, 2006 at 07:33 UTC
sysread( $new_sock, $sres, 1024, length($sres) ) would be more efficient (see sysread). Ok I follow your suggestion Why are you chomping if you aren't sending newlines? Ok.. it was an old statement used in some elder test , I removed it now Why are you exiting your loop if 1/10th of second passes with no input? Shouldn't you exit when you reach end-of-file instead? Why use select if you don't have anything asychronous to do? Just read until EOF, no? Both OK, in previous attempt I got the messages hang , waiting for more data, so I include the select statement. Now I tried without select and the test program still wotks well. In have to check if in the real program all this is still good, and the apply your suggestions also on it. thanks.	[reply]