Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
    use strict;
    ...
    print XMLout( $_, NoAttr => 1, RootName => 'book' ) for @{ $xml->{book
    +} };
    
    __DATA__
    
  2. or download this
    C:\test>junk
    <book>
    ...
      <isbn>Book3ISBN</isbn>
      <title>Book 3 title</title>
    </book>