Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re^2: Sort xml nodes by schema

by laozi (Novice)
on Sep 10, 2013 at 10:09 UTC ( [id://1053220]=note: print w/replies, xml ) Need Help??


in reply to Re: Sort xml nodes by schema
in thread Sort xml nodes by schema

Thanks!

Suppress empty does ease the pain

I have another issue i forgot to mention

i need a certain key value pair to translate to an element rather than an attribute

is there a way to do that with XML::Simple ?

Replies are listed 'Best First'.
Re^3: Sort xml nodes by schema
by AlexTape (Monk) on Sep 10, 2013 at 10:12 UTC
    can you give an example?
    $perlig =~ s/pec/cep/g if 'errors expected';
[reply]

      This is the hash structure

          'image' =>
    {
        'linux_axp_lpae' =>
        {
            # Mandatory
            image_name => 'uImage-axp-lpae',
            code_ref => 'linux_3.2.40_13q3_uni',
            linux_image => 
            {
                compiler  => 'v7_le_sfp_latest',
                defconfig => 'armada_xp_v7smp_defconfig',
                modules   => '1',
                config    =>
                {
                    'CONFIG_ARM_LPAE' => {value => 'y'},
                    'CONFIG_SQUASHFS' => {value => 'y'}
                },
            },
            'post_script' => ['cesa/openswan/ipsec_build.sh']
        },
}

      [download]
      and this is the xml i get 
        <image image_name="uImage-axp-lpae"
         code_ref="linux_3.2.40_13q3_uni">
    <linux_image compiler="v7_le_sfp_latest"
                 defconfig="armada_xp_v7smp_defconfig"
                 modules="1">
      <config image="CONFIG_ARM_LPAE"
              value="y" />
      <config image="CONFIG_SQUASHFS"
              value="y" />
    </linux_image>
    <post_script>cesa/openswan/ipsec_build.sh</post_script>
  </image>

      [download]
      as you can see "code_ref" becomes a attribute but i need it to be an element
[reply]
[d/l]
[select]
        just an idea:
        code_ref => 'linux_3.2.40_13q3_uni' should look like -> code_ref => ['linux_3.2.40_13q3_uni']

        for that you have to do something like this:
        ${${$hash{'image'}}{'linux_axp_lpae'}}{'code_ref'}=@{'linux_3.2.40_13q_uni'};

        $perlig =~ s/pec/cep/g if 'errors expected';
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://1053220]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others chanting in the Monastery: (5)
As of 2024-04-25 12:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found