Re^2: How to export hash to xml file

[Sombrerero_loco]

cool, but this examples shows how write a "small" and "declared" hash, i have a big one with the structure i told you with around 5000 keys with his values. So i need to way to give something like a :

foreach $control_key (%my_huge_hash)

and use the $control_key to walk in the hash and make the xml. In all the examples i saw, all the FAQs and tutorials told me how i can do that with a small hash (with the values declared). I have in every hash key a variable that imports from a while loop that reads a text file to this hash . Thanks!

[zentara]

Maybe you can use this example as a base:

#!/usr/bin/perl
use warnings;
use strict;
# by jdporter of perlmonks, converts a dir tree to xml
use File::Find;
use XML::Simple;
#my $root = shift or die "Usage: $0 rootdir\n";
my $root = shift || '.';

my %tree;

find(
   sub
   { #print "$File::Find::name\n"; 
     my @path = split m,/,, $File::Find::name; 
     my $tree = \%tree; 
     $tree = (($tree->{'dir'} ||= {})->{shift @path} ||= {}) 
        while @path > ( -d _ ? 0 : 1 ); @path and # it's a file 
           push @{ $tree->{'file'} ||= [] }, shift @path; }, 
           $root ); 
           
print XMLout( \%tree );