Re: Recurse into an HTML tree?

[Chas Owens]

On 8/24/07, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
snp
> I'm trying to figure out how to recursively scan an HTML tree.
snip

#!/usr/bin/perl

use strict;
use warnings;

use HTML::TreeBuilder;
my $tree = HTML::TreeBuilder->new();
$tree->parse_file("t.html");

recurse($tree);

sub recurse {
        my ($elt, $level) = (@_, 0);
        print "\t" x $level, "start ", $elt->tag, "\n";
        for my $child ($elt->content_list) {
                if (ref $child) {
                        recurse($child, $level + 1)
                } else {
                        print "\t" x ($level + 1), $child, "\n"; #text node
                }
        }
        print "\t" x $level, "end ", $elt->tag, "\n";
}

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/