Злостный Anon при обработке Xml

  • Автор темы SlipKo
  • Дата начала
S

SlipKo

Гость
#1
Perl изучаю от силы неделя (нужно для разбора формата vdx по практике). Имеется проблема:
Код:
#!perl -w
#use strict;
use warnings;
use XML::Simple;

my $xml = shift @ARGV;
my $parser = XMLin($xml);
open (F1, "> output.xml");
my $oldpoint = select (F1);
print XMLout ($parser->{customer});
и входной файл
Код:
<?xml version="1.0"?>
<root>
<customer ID="0" surname="Wrigley">
<age>42</age>
<auto>
<jeep>Cherokke</jeep>
<sedan>Lexus</sedan>
</auto>
</customer>
<customer ID="2" surname="Petukhov">
<age>21</age>
<auto>
<jeep>H-RV</jeep>
<sedan>Renault</sedan>
</auto>
</customer>
</root>
на выходе получаю anon который мне не нужен. Если вместо ID="0" поставить name="Joe" и вместо ID="2" какое нить подобное имя то все впорядке.
Код:
- <opt>
- <anon ID="0" age="42" surname="Wrigley">
<auto jeep="Cherokke" sedan="Lexus" /> 
</anon>
- <anon ID="2" age="21" surname="Petukhov">
<auto jeep="H-RV" sedan="Renault" /> 
</anon>
</opt>