CODEWITHSUNDEEP
perllwp-useragent
user1067305
user1067305

Reputation: 3501

perl LWP::UserAgent gives a cryptic error message

Here's the code:

$vizFile ='https://docs.recipeinvesting.com/t.aaaf.html'; 
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
my $response = $ua->get($vizFile);
if ($response->is_success) {print $response->decoded_content;}
else {print"\nError= $response->status_line]n";}

I get the message:

Error= HTTP::Response=HASH(0x3a9b810)->status_line]n

The url works fine if I put it in a browser.

This was working consistently (with plain http, using LWP::Simple), until the site made some changes.

Could it be the https that's making the difference?

Is there some way to get a less cryptic error message?

Upvotes: 2

Views: 793

Answers (2)

Polar Bear
Polar Bear

Reputation: 6818

Please see following demo code, it is encouraged to include use strict; and use warnings; in the code what would assist you to avoid many potential problems

use strict;
use warnings;
use feature 'say';

use LWP::UserAgent;

my $url ='https://docs.recipeinvesting.com/t.aaaf.html'; 
my $ua  = LWP::UserAgent->new;

$ua->timeout(10);
$ua->env_proxy;

my $response = $ua->get($url);

if( $response->is_success ){
    say $response->decoded_content;
} else {
    die $response->status_line;
}

Documentation: LWP::UserAgent

Upvotes: 2

ikegami
ikegami

Reputation: 386706

You can't put code in string literals and expect it to get executed. Sure, you can place variables for interpolation, but the making method calls falls on the other side of what's supported.

Replace

print"\nError= $response->status_line]n";

with

print "\nError= " . $response->status_line . "\n";

or

use feature qw( say );

say "\nError= " . $response->status_line;

This will print the status line as desired.

Upvotes: 4

Related Questions