Bill Moseley <[EMAIL PROTECTED]> writes:
> Any good tricks for specifying which tags to extract (push onto
> $self->{'links'}), other than filtering after the links that are returned
> with $p->links?
>
> Might be nice to be able to pass in something to LinkExtor like an array of
> a subset of HTML::Tagset::linkElements tags, or my own linkElements hash
> reference.
>
> Or does every use a callback instead of letting LinkExtor collect the links?
I don't think I would bother extending LinkExtor too much. If you
know exactly what you want just use HTML::Parser directly to extract
your links:
#!/usr/bin/perl -w
my @links;
use HTML::Parser 3.20;
my $p = HTML::Parser->new(start_h => [\@links, '@{tagname,attr}'],
report_tags => [qw(a img)],
);
$p->parse_file("index.html");
# XXX do something with collected @links...
use Data::Dump;
Data::Dump::dump(@links);
Regards,
Gisle
