Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
use Tie::IxHash;
...
$myhash{foo5} = [qw(bar5a bar5b bar5c)];

print XMLout(\%myhash, NoSort => 1);
  2. or download this
    <opt foo1="bar1" foo3="bar3" foo2="bar2" foo4="bar4">
  <foo5>bar5a</foo5>
  <foo5>bar5b</foo5>
  <foo5>bar5c</foo5>
</opt>
  3. or download this
    <opt foo3="bar3" foo4="bar4" foo2="bar2" foo1="bar1">
  <foo5>bar5a</foo5>
  <foo5>bar5b</foo5>
  <foo5>bar5c</foo5>
</opt>