Re^2: 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;
[download]

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.

Comment on Re^2: Missing data in IO::Socket::INET sysread/syswrite Download Code

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...` [download]	[reply] [d/l]


Do you know where your variables are?
	PerlMonks