Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Negate link search in Mechanize

by Plankton (Vicar)
on Nov 02, 2011 at 05:04 UTC ( [id://935293]=note: print w/replies, xml ) Need Help??


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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://935293]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others wandering the Monastery: (2)
As of 2024-04-20 04:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found