Thank you. That helps me a lot to know that it works for you.
Your code, exactly as you sent it, still does not work for me.
It gives:
500 Can't connect to nationalmap.gov:443 (Bad address) at trash.pl line 19.
I'm going to try to assign an environment variable to my
system. I doubt that will fix it, but I am trying just
about everything.
I still can't figure out why it works on some URL's,
and not others. It's probably going to take me a
long time to figure this out.
Mike
On 8/28/2019 6:26 PM, $Bill wrote:
This seems fine on my Win10:
use strict;
use warnings;
use LWP::UserAgent;
my $url;
if (0) { # set to 1 or 0 to flop urls
$url = 'https://nationalmap.gov/epqs';
} else {
$url =
'https://nationalmap.gov/epqs/pqs.php?y=34.0&x=-118.0&units=Feet&output=xml';
}
my $ua = LWP::UserAgent->new(); # ssl_opts => { verify_hostname => 0,
} );
$ua->agent("Mozilla/5.0 (Windows)");
my $response = $ua->get($url);
if ($response->is_success) {
print $response->content;
} else {
die $response->status_line;
}
print "All done.\n\n";
__END__
Dumps the page or elevation depending on url:
perl test.pl
<?xml version="1.0" encoding="utf-8"
?><USGS_Elevation_Point_Query_Service><Elevation_Query x="-118.0"
y="34.0"><Data_Source>3DEP 1/3
arc-second</Data_Source><Elevation>916.71</Elevation><Units>Feet</Units></Elevation_Query></USGS_Elevation_Point_Query_Service>All
done.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
