t/misc/get-callback

   1
   2 $url = shift || "";
   3 $url = "http://localhost:8080/$url" unless $url =~ /:/;
   4
   5 use LWP::UserAgent;
   6
   7 $ua = new LWP::UserAgent;
   8
   9
  10 $tot = 0;
  11
  12 $res = $ua->request(HTTP::Request->new("GET", $url),
  13         \&data);
  14
  15 sub data
  16 {
  17     my($data, $response) = @_;
  18     my $len = length $data;
  19     $tot += $len;
  20     print "Got $len bytes";
  21     unless ($ct_len) {
  22         $ct_len = $response->header("Content-Length");
  23     }
  24     if ($ct_len) {
  25         printf " (%.1f%% done)", $tot/$ct_len*100.0;
  26     }
  27     print "\n";
  28 }
  29
  30 print $res->as_string;