Help generating XML output

[Beginner]

Hi,

I have been trying to output XML that looks like this:

<users>
        <username id="10">dermot</username>
        <username id="17">joe</username>
...
</users>

I have tried XML::Simple and XML::Generator but keep hitting the same 
problem when it comes to separating the id attribute and the value 
from my hash reference.

$VAR1 = {
           'dermot' => '10',
           'joe' => '17',
           'rose' => '11',
           'phil' => '13',
           'brian' => '20',
           'andy' => '15',
         };

If I use this loop to generate the output with XML::Generator I only 
get the last user in the XML

my $xml;
my $gen = XML::Generator->new(':pretty');
foreach my $k (keys %{$ref}) {
               $xml = $gen->users(
                          $gen->username({ id => $ref->{$k}},$k),
                       );
       }
print $xml;

<username id="15">andy</username>

With XML::Simple I considered using this:
 
my $xml = XMLout($ref, RootName => 'users', ValueAttr => { '??' => 
'??'}

But I can't determine how to use ValueAttr to suit my needs as the 
keys/values are not know.

I think XML::Generator would suit me best but I can't see can append 
data to $xml. Can anyone offer any advice?

TIA,
Dp.




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/