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: 166
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