I have basically written a code to download a file from the net. The link works when tried from a browser.
But, not using the below script:
The only problem is that I cannot mention the URL used.#!/usr/local/bin/perl -w use strict; use LWP::UserAgent; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(GET => $url); my $res = $ua->request($req); if($res->is_success){ print $res->is_success."\n"; my @data = split '\n', $res->content; foreach my $line (@data){ print $line."\n"; } } else{ my @data = split '\n', $res->content; print $res->status_line . "\n"; print $res->as_string . "\n"; my $err = sprintf "(%d)(%s)(%d)(%s)\n", $!,$!,$^E,$^E; print "Err: $err\n"; print "\n\n\n\\n\n\n"; for my $i(0 .. 256){ $! = $i; $^E = $i; printf "(%d)(%s)(%d)(%s)\n", $!,$!,$^E,$^E; } }
Here is the output:
500 read timeout
500 (Internal Server Error) read timeout
Content-Type: text/plain
Client-Date: Tue, 15 Jun 2010 12:19:02 GMT
Client-Warning: Internal response
500 read timeout
Err: (0)()(0)()
Thanks, Bharat.
In reply to LWP 500 read timeout by bharat88
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |