XML::Parser how to reduce pseudo-tag "0"

[varakal]

I have the following XML file in the below format:

<root>
  <clients id="4">
        <name>temp</name>
        <order>yes</order>
  </clients>
</root>

I am using XML:arser Tree Style and the Dumper gives me:

$VAR1 = [
          'root',
          [
            {},
            0,
            '
  ',
            'clients',
            [
              {
                'id' => '4'
              },
              0,
              '
        ',
              'name',
              [
                {},
                0,
                'temp'
              ],
              0,
              '
        ',
              'order',
              [
                {},
                0,
                'yes'
              ],
              0,
              '
  '
            ],
            0,
            '
'
          ]
        ];

When you see this, you seee unnecessary '0' tags with new lines as its values. I know it is because of the new lines between the tags. I can write some code to remove things like these but ss there a way that is already built in to get rid of these.
Thanks.

 

[varakal]

$xml =~ s/>\s+<+?/></g;

The above code does the work, but am wondering if there is something built in XML Parser itself.

 

[rharsh]

Unless you need the control of XML:arser or the XML file is rather large, I'd definitely suggest using XML::Simple.

use Data::Dumper;
use XML::Simple;
my $xs = new XML::Simple;
open my $input, "< test.xml" or die "Cannot Open File\n";
my $data = $xs->XMLin($input);
print Dumper($data);

Which gives the output:

$VAR1 = {
          'clients' => {
                       'order' => 'yes',
                       'name' => 'temp',
                       'id' => '4'
                     }
        };