in reply to XMLout and keys/attributes

Remove the ContentKey option from your call to XMLout and change where you set $XmlRef to the following: 

    $XmlRef->{$keyname}{'devices'}{'dev'.$cnt}{'param'} 
        = [ {$foo => $userref->{$key}{'hash'}{$foo}} ];

[download]
Update: No, that's not right... you have two tags, so you have to push them on... Try this: 
  $XmlRef->{$keyname}{'devices'}{'dev'.$cnt}{'param'} = [];
  for my $foo(keys %{$userref->{$key}{'hash'}}) {
    push @{ $XmlRef->{$keyname}{'devices'}{'dev'.$cnt}{'param'} }
         , {id => $foo, content => $userref->{$key}{'hash'}{$foo}} ;
    $i+=1;
  }

[download]

Edit: struck out incorrect code.

-sauoq
"My two cents aren't worth a dime.";

Replies are listed 'Best First'.
Re^2: XMLout and keys/attributes
by atreyu (Sexton) on May 09, 2012 at 15:29 UTC
    Arggg! I just looked at the original code again, and I realized I screwed up the description of the XML. here is the correct $userref example: 
    $userref->{0}{'hash'}{'Name'} = 'joe';
$userref->{0}{'hash'}{'Type'} = 'user';
$userref->{0}{'hash'}{'1Param'} = 'foo';

    [download]
    and here is what I need the XML to look like: 
      <key0>
    <devices>
      <dev0>
        <param id="Name">joe</param>
        <param id="Type">user</param>
        <param id="1Param">foo</param>
      </dev0>
    </devices>
  </key0>

    [download]
    btw, your code suggestion was very close sauoq, care to try again?!
[reply]
[d/l]
[select]
      btw, your code suggestion was very close sauoq, care to try again?!

      I already did. See my update? ;-)

      P.S. It should work with three params as well as two, so your "arrrggg" isn't needed. :-)

      -sauoq
      "My two cents aren't worth a dime.";
[reply]
        sauoq, your two cents are so money! you nailed it, thank you!
[reply]

In Section Seekers of Perl Wisdom