test_as_XML

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use HTML::TreeBuilder::XPath;
   7
   8 my $doc=q{
   9 <html>
  10   <head>
  11     <script lang="javascript">if( 1 < 2 && 3 < 4) { return ""; }</script>
  12     <script lang="javascript"><![CDATA[if( 1 < 2 && 3 < 4) { return ""; }]]></script>
  13     <script lang="javascript">if( 1) { return ""; }</script>
  14   </head>
  15   <body>
  16      <p>&amp; &amp; &lt; &gt; &amp; été été été ""</p>
  17      <p>&amp; &amp &lt &gt &amp <b>&eacute;t&eacute</b> &#xe9;t&#xe9 &#233;t&#233</p>
  18      <hr>
  19      <p>foo bar baz</p>
  20  </body>
  21 };
  22
  23 {
  24 my $h= HTML::TreeBuilder::XPath->new;
  25 $h->parse( $doc);
  26 #print $h->as_HTML;
  27 }
  28
  29
  30 {
  31 my $h= HTML::TreeBuilder::XPath->new;
  32 $h->parse( $doc);
  33 #print $h->as_XML;
  34 }
  35 {
  36 my $h= HTML::TreeBuilder::XPath->new;
  37 $h->parse( $doc);
  38 print $h->as_XML_clean;
  39 }
  40
  41