Perl: Value of response code in HTTP::Request

Posted by lola on Stack Overflow See other posts from Stack Overflow or by lola
Published on 2010-06-15T11:07:59Z Indexed on 2010/06/15 11:12 UTC
Read the original article Hit count: 163

Filed under:
|
|

Hi all,

  So, I am writing a code to get a document from the internet. The document size is around 200 KB. This is the code:

!/usr/local/bin/perl -w

use strict;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $url = "SOME URL";
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);

if($res->is_success){

   print $res->content ."\n";
}
else{
  print "Error: " . $res->status_line;
}

Now, the only problem is I can't mention what the URL is.

However, the output is: "Error: 500 read timeout". When I checked the link externally, the data is being downloaded in under 5 seconds.

I even changed the timeout to 1000s, but it still didn't work. How should I go about finding more information related to the response. The size of the file (around 200KB) is also not too great to warrant a read timeout. The server is also not a busy one, didn't give a problem whenever I checked the link on the browser.

Thanks.

© Stack Overflow or respective owner

Related posts about perl

Related posts about http