#!perl
use strict;
use HTML::TreeBuilder::XPath;
use Data::Dumper;
my $tree = HTML::TreeBuilder::XPath->new();
$tree->store_comments(1);
my $html = do { local $/; };;
$tree->parse( $html );
my @nodes = $tree->findnodes( qw( //tr[@class='Odd'] ) );
for my $subtree ( @nodes )
{
my($value) = $subtree-> findnodes( qw( td[1]/script ) );
my $script = join "", $value->content_list;
my $other_data = $subtree->findvalue( qw( td[2] ) );
printf "Value: %s\n", $script;
printf "Other Data: %s\n", $other_data;
}
__DATA__
| Other Data |
| Other Data |
| Other Data |
| Other Data |
| Other Data |
| Other Data |
| Other Data |