Net::HTTP interner Puffer - #146673 (Fragen zu Perl-Modulen)

murphy

2011-03-20 15:04

User since
2004-07-19
1776 Artikel
HausmeisterIn

Ich glaube, die Pufferung kann man in diesem Falle nicht abstellen. Für den Fall, dass einzelne Records nicht auf einmal gelesen werden können, wäre es möglich, dass man den Körper mit einer Schleife einlesen muss, etwa so (ungestestet):

Code (perl): (dl )

use 5.012;
use warnings;
use Errno qw/EINTR EAGAIN/;

# ... initialization stuff ...

RECORD_LOOP: while (1) {
  my $record = "";
  READ_LOOP: while (length($record) < 794) {
    my $_;
    given ($nh->read_entity(my $chunk, 794 - length($record))) {
      last RECORD_LOOP when ($_ == 0 and length($record) == 0);
      next READ_LOOP when ($_ ~~ [ undef, -1 ] and $! ~~ [ EINTR, EAGAIN ]);

      die "I/O error: $!" when ([ undef, -1 ]);
      die "Unexpected end of file" when (0);

      default {
        $record .= $chunk;
      }
    }
  }

  # ... record processing ...
}

When C++ is your hammer, every problem looks like your thumb.