http://qs321.pair.com?node_id=1053220


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