#!/usr/bin/perl --
use strict;
use warnings;
use HTML::TreeBuilder;
{
my $tree = HTML::TreeBuilder->new();
$tree->look_down(qw!_tag body!)->push_content(
[
ul => map [ 'li', $_ ],
qw(Peaches Apples Pears Mangos)
],
[ table => map [ tr => [ td => $_ ] ], 1 .. 3 ],
);
print $tree->as_HTML( '', ' ' );
sub HTML::Element::addressx {
return join(
'/',
'/', # // ROOT
reverse( # so it starts at the top
map {
my $n = $_->pindex() || '0';
my $t = $_->tag;
$t . '['. $n .']'
} # so that root's undef -> '0'
$_[0], # self and...
$_[0]->lineage
)
);
} ## end sub HTML::Element::addressx
for my $td ( $tree->look_down( _tag => 'td' ) ) {
print $td->addressx, "\n";
} ## end for my $td ( $tree->look_down...)
$tree->delete;
undef $tree;
}
__END__
####
//html[0]/body[1]/table[1]/tr[0]/td[0]
//html[0]/body[1]/table[1]/tr[1]/td[0]
//html[0]/body[1]/table[1]/tr[2]/td[0]