UMonk has asked for the wisdom of the Perl Monks concerning the following question:
Am getting error right at this point I have another team who has implemented this automation successfully. Any knowledge or suggestion will be greatly appreciated.use strict; use File::Basename; use Getopt::Long; use WWW::Mechanize; use URI qw( ); my $thisScript = basename($0); print "==START $thisScript==\n"; my ($help, $proxy, $username, $password); my $urlsToBeDownloaded = "file-url-list.txt"; my $url = "https:xxxxxxxxxxxxx"; usage() if (@ARGV < 2 or ! GetOptions('proxy:s' => \$proxy, 'username=s' => \$username, 'password=s' => \$password) or defined $help); if ($username eq "" || $password eq "") { usage(); } my $mech = WWW::Mechanize->new(); if($proxy ne ""){ $mech->proxy(['http', 'https'], $proxy); } $mech->get($url);
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Attempt to reload LWP/Protocol/http.pm
by hippo (Archbishop) on Oct 20, 2016 at 22:14 UTC | |
by UMonk (Initiate) on Oct 21, 2016 at 13:36 UTC | |
|
Re: Attempt to reload LWP/Protocol/http.pm
by jellisii2 (Hermit) on Oct 21, 2016 at 14:27 UTC |