use LWP::Simple;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use HTML::LinkExtor; # allows you to extract the links off of an HTML page.
print "Content-type: text/html\n\n"; # this is just for testing
#
my $url = 'http://www.example.com/portal/pw/index.html';
my $content = get $url;
die "Couldn't get $url" unless defined $content;
>>>>>>>>>>>>>>
When I run the script I am getting 'Couldn't get http://www.example.com/portal/pw/index.html'. As I said above if I try the same script to get a different web page (e.g. http://www.example.co.uk/index.html) it works ok.
Rgds
Denis
[edited by: jatar_k at 11:41 am (utc) on Oct. 12, 2008]
[edit reason] please use example.tld [/edit]
try using LWP::UserAgent methods instead:
use LWP::UserAgent;
print "Content-type: text/html\n\n"; # this is just for testingmy $ua = LWP::UserAgent->new;
my $response = $ua->get('http://www.example.com/portal/pw/index.html');if($response->is_success){
print $response->decoded_content;
}else{
die $response->status_line;
}
Using the above I now get '500 Internal Server Error'. There is nothing in the server error log to indicate the type of error. It also still works for some sites but not others.
Any more guidance would be appreciated
#!c:\perl\bin\perl.exe -w
otherwise there will be a message somewhere.
have you tried running the script from the command line?
if it looks like a response object, it should have a code or status message available...
