Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: WWW::Mechanize - Could not connect to a server

by Preceptor (Chaplain)
on Mar 20, 2007 at 11:44 UTC ( #605659=note: print w/ replies, xml ) Need Help??

in reply to WWW::Mechanize - Could not connect to a server

You've mentioned you're using a proxy.

You need to set up WWW:Mechanize to use your proxy. Ideally, you'll use the in-built OS options, but as a shortcut (to check if this actually is your problem) then just use:

my $mech = WWW::Mechanize -> new(); $mech -> http_proxy ( "Your_proxy_address:proxy_port" )
I've also found enabling LWP debugging to be most useful when troubleshooting Mechanized scripts.
use LWP::Debug qw(+);

Comment on Re: WWW::Mechanize - Could not connect to a server
Select or Download Code
Re^2: WWW::Mechanize - Could not connect to a server
by jesuashok (Curate) on Mar 21, 2007 at 02:09 UTC

    #!/usr/bin/perl -w use WWW::Mechanize; use strict; use Data::Dumper; use Storable; my $url = ' +0027.html'; my $m = WWW::Mechanize->new(); $m->http_proxy ( "proxy_address:proxy_port" );
    I tried the above code and got the error as follows :-
    Can't locate object method "http_proxy" via package "WWW::Mechanize" a +t lin e 11.
    Is there something wrong in the above Code. If so, could you add your valuable points.

    hmmm ....let me think what did I said
      There is no method http_proxy. If you RTFM you can discover the correct method.
      If you had read the Documentation (which was pointed out to you by chargrill in the first reply to this thread) you would see that you have $m->http_proxy rather than $m->proxy. Again, if you are not sure about something why not read the documentation, it does not take that long does it?

      As a side note you can also use can to find out if a Method exists within an invocant:
      #!/usr/bin/perl use strict; use warnings; use WWW::Mechanize; my $mech = WWW::Mechanize->new(); if ($mech->can("http_proxy")){ print "Mech can http_proxy\n"; }else{ print "Mech can't http_proxy\n"; } if ($mech->can("proxy")){ print "Mech can proxy\n"; }else{ print "Mech can't proxy\n"; }

      Hope this helps

        To be fair, I also hadn't done an RTFM before posting, which is why I commented on the error. Then again, I'm not the one having problems with my code :)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://605659]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (11)
As of 2015-03-31 21:48 GMT
Find Nodes?
    Voting Booth?

    When putting a smiley right before a closing parenthesis, do you:

    Results (673 votes), past polls