Re: Robust Handling of Broken Links in Mechanize?

The WWW::Mechanize documentation at CPAN explains the option 'onerror'. Try using it, it may help ;-) Since yo did not set any options, Mechanize falls back to the standards it's author found most helpful. Wolfgang

Comment on Re: Robust Handling of Broken Links in Mechanize?

Replies are listed 'Best First'.
Re^2: Robust Handling of Broken Links in Mechanize? by pat_mc (Pilgrim) on Nov 20, 2009 at 12:58 UTC
Wolfgang - This is great stuff ... it looks like this fixes the problem: `sub download() { my $doc = shift @_; my $mech = WWW::Mechanize -> new( onerror => undef ); return unless defined( $mech -> get( $doc ) ); my $link = $mech -> find_link( url_regex => qr/\.pdf/ ); return unless defined( $link ); $link = $link -> url_abs; return unless ( $mech -> get ( $link ) ); # This is the GET oper +ation which fails. my $name = $1 if $link =~/.+\/(.+\.pdf)/; $mech -> save_content( $name ); }` [download] Thanks for your help! It made my day. Cheers - Pat	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Robust Handling of Broken Links in Mechanize?
by pat_mc (Pilgrim) on Nov 20, 2009 at 12:58 UTC

sub download()
{
    my $doc = shift @_;

    my $mech = WWW::Mechanize -> new( onerror => undef );
        
    return unless defined( $mech -> get( $doc ) );
    
    my $link = $mech -> find_link( url_regex => qr/\.pdf/ );
    return unless defined( $link );
    
    $link = $link -> url_abs;
    return unless ( $mech -> get ( $link ) );   # This is the GET oper
+ation which fails.

    my $name = $1 if $link =~/.+\/(.+\.pdf)/;    
    $mech -> save_content(  $name );
}
[download]

[reply]
[d/l]