#!perl
use 5.014; use XML::Twig;
my $twig = XML::Twig->new;
$twig->parse(xmlinput());
for my $tr_elt ($twig->findnodes(q(//tr[@class='Odd']))) {
if (my($script_elt) = $tr_elt->findnodes(q(td[1]/script))) {
say "Script: ", $script_elt->text;
}
if (my($td2_elt) = $tr_elt->findnodes(q(td[2]))) {
say "Other: ", $td2_elt->text;
}
}
sub xmlinput { q{
| Other Data |
| Other Data |
| Other Data |
| Other Data |
| Other Data |
| Other Data |
| Other Data |
}; }
__END__
####
Script: Decode("%31%31%39%2e%32%35%33%2e%36%31%2e%31%32%31")
Other: Other Data
Script: Decode("%32%32%32%2e%36%32%2e%32%30%37%2e%37%30")
Other: Other Data
Script: Decode("%35%38%2e%32%30%2e%32%32%38%2e%32%32")
Other: Other Data
Script: Decode("%32%32%33%2e%38%37%2e%31%39%2e%35")
Other: Other Data