Re: LWP::HTML

• Messages sorted by: [ date ][ thread ][ subject ][ author ]
• Next message: Jim Anderson: "core dump when installing libwww-perl-5b6"
• Previous message: Steven E. Newton: "Re: LWP::HTML"

>Hm.  This doesn't seem to be working for me:
>
>   sub ptitle {
>      my($node, $startflag, $depth) = @_;
>      if ($node->tag eq 'title' && $startflag) {
>         print $node->tag, "\n";
>      }
>   }
>
>   $h = HTML::Parse::parse_htmlfile($ARGV[0]);
>
>   $h->traverse(\&ptitle, 1);
>
>It doesn't print anything at all -- the file definitely has the <TITLE> tag.
>However -- if I change the test to look for the 'html' tag, it works.

Your callback function needs to return a true value until you find what you
are looking for,

   sub ptitle {
      my($node, $startflag, $depth) = @_;
      if ($node->tag eq 'title' && $startflag) {
         print $node->tag, "\n";
         return 0; #got it, we're outta here
      }
      return 1; #keep looking
  }

You were able to find 'html' since it is an element of the first node in the
tree.

perldoc HTML::Element says:
"If the return value from the callback is false then we will not traverse
the children." 

-Doug

>s
>
>
>
>
>--
>+     +      +      +      +    |      snewton@oac.hsc.uth.tmc.edu
>                                |      Nobody else speaks for me,
>   They've given you a number   |      and I speak for no one else.
>   and taken away your name.    | http://oac11.hsc.uth.tmc.edu/index.html
>                                |      +     +     +     +     +     +
>
>
>
>

• Next message: Jim Anderson: "core dump when installing libwww-perl-5b6"
• Previous message: Steven E. Newton: "Re: LWP::HTML"