Extract inline script from an XHTML with XML::Twig

In the chatterbox, SagaraSouske has asked help about extracting text from script elements in an XHTML document. He wrote code using HTML::TreeBuilder. This node shows how to do the equivalent with XML::Twig. The XHTML example is directly from SagaraSouske.

#!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{
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http:/
+/www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html lang="en" xmlns="http://www.w3.org/1999/xhtml">
<body>
<table border="0" cellpadding="4" cellspacing="0" class="DataGrid" wid
+th="1000px">
<tr class="Odd"><td><script type="text/javascript">Decode("%31%31%39%2
+e%32%35%33%2e%36%31%2e%31%32%31")</script></td><td>Other Data</td></t
+r>
<tr class="Even"><td><script type="text/javascript">Decode("%32%30%33%
+2e%31%35%36%2e%32%30%37%2e%32%34%39")</script></td><td>Other Data</td
+></tr>
<tr class="Odd"><td><script type="text/javascript">Decode("%32%32%32%2
+e%36%32%2e%32%30%37%2e%37%30")</script></td><td>Other Data</td></tr>
<tr class="Even"><td><script type="text/javascript">Decode("%32%30%32%
+2e%31%31%32%2e%31%31%37%2e%39%34")</script></td><td>Other Data</td></
+tr>
<tr class="Odd"><td><script type="text/javascript">Decode("%35%38%2e%3
+2%30%2e%32%32%38%2e%32%32")</script></td><td>Other Data</td></tr>
<tr class="Even"><td><script type="text/javascript">Decode("%31%31%39%
+2e%32%35%33%2e%36%31%2e%31%32%30")</script></td><td>Other Data</td></
+tr>
<tr class="Odd"><td><script type="text/javascript">Decode("%32%32%33%2
+e%38%37%2e%31%39%2e%35")</script></td><td>Other Data</td></tr>
</table>
</body>
</html>
}; }

__END__
[download]

Update: here's the output:

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
[download]

Back to Cool Uses for Perl