Help for this page

Select Code to Download


  1. or download this
    print "<SESSION>\n";
    print_hash(\%hash);
    ...
            print "$prefix</$key>\n";
        }
    }
    
  2. or download this
    use XML::Simple;
    use strict;
    ...
    
    print XMLout(\%hash, RootName => 'SESSION');