git.maemo.org Git - dh-make-perl/blob - dev/arm/libwww-perl/libwww-perl-5.813/t/net/cgi-bin/slowread

   1 #!/usr/local/bin/perl
   2
   3 # You might post large amount of data to this script.  It will read
   4 # it slowly.
   5
   6 { local($!) = 1; print "Content-Type: text/plain\n\n"; }
   7
   8 $len = $ENV{CONTENT_LENGTH};
   9
  10 unless ($len) {
  11     system "env";
  12     exit;
  13 }
  14
  15 $size = 20;  # chunk size
  16
  17 $content = '';
  18 $bytes = 0;
  19
  20 sleep(1);
  21 while ($len > 0) {
  22     $n = sysread(STDIN, $b, $size);
  23     last if $n <= 0;
  24     $len -= $n;
  25     $bytes += $n;
  26     $content .= $b;
  27     sleep(1);
  28 }
  29 print "$bytes bytes read\n";
  30
  31