Mike <te...@mflan.com> writes:
> I sure appreciate your help.
>
> I have done quite a few things listed on the internet
> with both Simple and UserAgent.
Sorry Mike, but I have hard time to get a clear picture of what you are
saying.
Did you manage to use LWP::Simple to load google.com?
This is really the first question, the first step to build the
diagnostic.
So far, I cannot even decide whether the version of LWP::Simple
installed on your machine is properly working or not. So I cannot decide
whether it is a network problem or a software problem.
Best regards,
Olivier
> We see that many of the failing sites are govt
> sites. One guy can access all my Not Working sites,
> but he says that glorecords and nationalmap.gov react
> very slow, even when UserAgent uses the FireFox
> identity.
>
> I know I can use Mechanize and really dive into this.
> And I might do that someday. But for the moment I'm
> thinking this is unlikely to get fixed in the next week.
> Good thing I don't need this.
>
>
> Mike
>
>
>
> On 8/29/2019 5:35 AM, Olivier wrote:
>> I don't see why you have a 'die at line 21' while your script has way
>> less than 21 lines. Also, the script comes all mangled by the mail, so
>> one cannot say if the error is yours or the mailer.
>>
>> Make your script simple first, so you can confirm your environment is
>> working:
>>
>> #!/usr/bin/perl
>> use LWP::Simple;
>> $test=get('https://google.com');
>> print $test;
>>
>> When that is working, start changing things one at a time and check at
>> each stage that it is still working.
>>
>> You may also explore the documentation of LWP::Simple to get an error
>> message that makes sense, because what you get so far is only 'it does
>> not work', one cannot make a diagnostic with that only.
>>
>> Good luck,
>>
>> Olivier
>>
>>>
>>> #!/usr/bin/perl
>>> use strict;
>>> use warnings;
>>> use LWP::Simple;
>>>
>>>
>>> # Does not work
>>>
>>> my $test = get('https://nationalmap.gov/epqs/pqs.php') or die 'Unable to
>>> get page'; # Does not work
>>> #my $test = get('http://www.wrh.noaa.gov/zoa/mwmap3.php?map=usa') or die
>>> 'Unable to get page'; # Does not work
>>> #my $test = get('http://www.glorecords.blm.gov/') or die 'Unable to get
>>> page'; # Does not work
>>> #my $test = get('https://glorecords.blm.gov/default.aspx') or die 'Unable
>>> to get page'; # Does not work
>>>
>>>
>>> print "\nAll done.\n\n\$test = $test\n\n";
>>>
>>>
>>> __END__
>>>
>>>
>>>
>
>
>
--
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
