Help for this page

Select Code to Download


  1. or download this
    use XML::Smart qw( );
my $xml = XML::Smart->new();
$xml->{foo}{bar}{empty} = {};
print scalar $xml->data();
  2. or download this
    <?xml version="1.0" encoding="iso-8859-1" ?>
<?meta name="GENERATOR" content="XML::Smart/1.6.8 Perl/5.008008 [MSWin
+32]" ?>
...
    <empty/>
  </bar>
</foo>
  3. or download this
    use XML::Smart qw( );
my $xml = XML::Smart->new();
...
]>
__EOI__
print scalar $xml->data();