Beefy Boxes and Bandwidth Generously Provided by pair Networks Bob
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: www::mechanize - how to prevent it dying?

by Corion (Pope)
on Oct 06, 2010 at 08:03 UTC ( #863733=note: print w/ replies, xml ) Need Help??


in reply to www::mechanize - how to prevent it dying?

See the autocheck parameter, which turns all HTTP errors into fatal errors. When you turn autocheck off, you will need to do all error checking yourself.

my $mech = WWW::Mechanize->new( autocheck => 0 ); my $res = $mech->get('does.notexist.example'); $res->is_success or print "Uhoh\n";

Alternatively, use eval to trap fatal errors when making the original connection.

my $mech = WWW::Mechanize->new(); my $connected = eval { $mech->get('does.notexist.example'); 1 }; if (! $connected) { print "Uhoh\n"; };

Also see Try::Tiny to reduce the exception-dance to one less step (I haven't used it myself):

use Try::Tiny; my $mech = WWW::Mechanize->new(); try { $mech->get('does.notexist.example'); } catch { print "Uhoh: $_\n"; };


Comment on Re: www::mechanize - how to prevent it dying?
Select or Download Code
Re^2: www::mechanize - how to prevent it dying?
by jfrm (Scribe) on Oct 07, 2010 at 14:32 UTC

    This was a great answer, thank you. I have switched off autocheck. But then I realised that I was already doing a check after each $mech->get() by testing $mech->status. Is testing $mech->status adequate or does checking $res->is_success do something different or better?

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (11)
As of 2014-04-25 08:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (585 votes), past polls