Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re^2: Missing data in IO::Socket::INET sysread/syswrite

by reasonablekeith (Deacon)
on Sep 10, 2009 at 15:56 UTC ( #794611=note: print w/replies, xml ) Need Help??


in reply to Re: Missing data in IO::Socket::INET sysread/syswrite
in thread Missing data in IO::Socket::INET sysread/syswrite

d'oh. I'd ass-u-me d that it blocked for the full length of the read. I just hacked in this for the read subroutine...
my $total_bytes_to_read; sysread $sock, $total_bytes_to_read, 20; my $total_bytes_read = 0; my $read_string = ''; while ($total_bytes_read < $total_bytes_to_read) { my $buffer; my $bytes_read = sysread $sock, $buffer, ($total_bytes_to_read + - $total_bytes_read); $total_bytes_read += $bytes_read; $read_string .= $buffer; } $total_bytes_to_read == $total_bytes_read or die("Tried to read $total_bytes_to_read bits but only got $to +tal_bytes_read bits\n"); return $read_string;
and have been unable to reproduce the error. Thank you! ++

PS: I will abstract the loop, as I realise the other sysread here could suffer the same problem

Update: Just seen your code. I shall be nicking that :)

Update2: Worked a treat with an extra curly bracket and two semi-colons :)

---
my name's not Keith, and I'm not reasonable.

Replies are listed 'Best First'.
Re^3: Missing data in IO::Socket::INET sysread/syswrite
by ikegami (Patriarch) on Sep 10, 2009 at 16:18 UTC
    sysread $sock, $total_bytes_to_read, 20; # could get less here too...

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://794611]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (3)
As of 2022-11-29 21:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?