用perl解析XML的问题

卡龙1980

<JOBS>
<JOB id="1" cmd="a.sh" step="hour"></JOB>
<JOB id="2" cmd="b.sh" step="day"></JOB>
<JOB id="3" cmd="c.sh" step="day"></JOB>
<JOB id="4" cmd="d.sh" step="day"></JOB>
</JOBS>
解析出的结果是：
$VAR1 = {
          'JOB' => {
                   '4' => {
                          'step' => 'day',
                          'cmd' => 'd.sh'
                        },
                   '1' => {
                          'step' => 'hour',
                          'cmd' => 'a.sh'
                        },
                   '3' => {
                          'step' => 'day',
                          'cmd' => 'c.sh'
                        },
                   '2' => {
                          'step' => 'day',
                          'cmd' => 'b.sh'
                        }
                 }
        };
现将xml文件只保留1个JOB。
<JOBS>
<JOB id="1" cmd="a.sh" step="hour"></JOB>
</JOBS>
用同一个PERL再进行解析，结果如下：
$VAR1 = {
          'JOB' => {
                   'step' => 'hour',
                   'cmd' => 'a.sh',
                   'id' => '1'
                 }
        };
问题如下：当XML只有1个JOB时，解析出来的结果和多个JOB时不同(得到的Hash数据结构不同)，没法对它们统一处理。请问处理能够使这两种情况得到的Hash数据结构相同？

perl程序如下:
#!/usr/local/bin/perl
use XML::Simple;
use Data:: Dumper;
my $simple = XML::Simple->new (ForceArray => 1);
my $cfgfile= $simple->XMLin("test.xml" );
print Dumper($cfgfile);

[ 本帖最后由 卡龙1980 于 2008-7-21 16:04 编辑 ]

flw

仔细看看手册，上面一定有写。

卡龙1980

都是英文的，看的不是很明白。
试了很多option，都试不出来。

不死草

仅仅取值的话应该没问题，但是要想引用，可能会有一些形而上的不同，但是其实还是一样的。不知道你所说的数据结构不同是指？

ulmer

原帖由 卡龙1980 于 2008-7-21 15:58 发表
...
my $simple = XML::Simple->new (ForceArray => 1);
..

try this:
oprions with ForceArray => [ names ]

$simple = XML::Simple->new (ForceArray => ['JOB']);