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

Тема в разделе "Perl программирование", создана пользователем SlipKo, 27 июн 2010.

Наш партнер Genesis Hackspace
  1. SlipKo

    SlipKo Гость

    Perl изучаю от силы неделя (нужно для разбора формата vdx по практике). Имеется проблема:
    Код (Text):
    #!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});
    и входной файл
    Код (Text):
    <?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" какое нить подобное имя то все впорядке.
    Код (Text):
    - <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>
     
Загрузка...

Поделиться этой страницей