in reply to Negate link search in Mechanize

Why not just get all the links like so ... 
...
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get( $url );
my @links = $mech->links();

[download]
... then iterate over @links. Something like ... 
for my $l (@links) {
       next if $l->url() =~ /foo/;
       push ( @non_foo_links, $l );
       ...

[download]

Replies are listed 'Best First'.
Re^2: Negate link search in Mechanize
by Anonymous Monk on Nov 02, 2011 at 05:18 UTC
    Why not just get all the links like so ...

    Because I'm lazy (a Perl virtue, you know). But thanks, I was too focused on letting Mechanize do the work and did overlook the obvious. Maybe time to get some sleep.

[reply]

In Section Seekers of Perl Wisdom