Re: Limiting Toke::Parser

Rob Dixon wrote:
Gunnar Hjalmarsson wrote:
Rob Dixon wrote:
Clinton JAmes wrote:
How do I stop the parser when I reach "pears".
You are presumably using HTML::TokeParser, and not Toke::Parse, Toke::Parse or
toke paser.

This should do what you want.

while (my $tag = $stream->get_tag('div')) {
next unless my $id = $tag->[1]{id};
last if $id eq 'mainbody';
}

while (my $tag = $stream->get_tag('a')) {
next unless $stream->get_trimmed_text eq 'pears';
print $tag->[1]{href}, "\n";
last;
}
I wouldn't interpret "when I reach 'pears'" that literally. Alternative solution:

while ( my $tag = $stream->get_tag ) {
if ( $tag->[0] eq 'a' ) {
print Dumper $tag;
}
last if $tag->[0] eq '/ul';
}

I assumed the OP wanted to find the first the first anchor containing 'pears'
after the first division with an id of 'mainbody'. How do you read it?

I assumed the OP wants all the anchors in the list, where the last anchor happens to contain 'pears'. At least that's what his own code indicates.

(Once again you've over-edited the previous post and no one can see what we're
taking about.)

It's a matter of taste. Everyone can view the messages by thread, just like you did. Personally I find it more annoying when people include everything in a long thread.

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
.