当前位置：首页 → 问答吧 → 问一个perl解析xml的问题。

问一个perl解析xml的问题。

时间：2010-10-28

来源：互联网

大家好，

我使用perl解析一个非常简单的xml字符串。
xml字符串如下：

<?xml version="1.0"?>
<results fid="4769">
<branch>edream2.1-feature-interactive-timescape-widget</branch>
<branch>edream2.1-feature-interactive-timescape-widget</branch>
</results>

复制代码

解析代码如下：

use XML::Simple;
use Data::Dumper;
my %Feature_Git_Branch_List;
# key:fp_id
# value array |branch_name1|branch_name2|....
my $xml = new XML::Simple;
my $data = $xml->XMLin($res->content);
# print output
my %VAR = Dumper($data);
print DB_LOG_FILE %VAR;
my @branch_array = $VAR{"branch"};
print DB_LOG_FILE @branch_array;
$Feature_Git_Branch_List{$key} = \@branch_array;

复制代码

哈希表VAR打印出来如下：
$VAR1 = {
      'fid' => '4769',
      'branch' => [
                     'edream2.1-feature-interactive-timescape-widget',
                     'edream2.1-feature-interactive-timescape-widget'
                  ]
      };
但是怎样能取到branch数组的值呢，

my @branch_array = $VAR{"branch"};
print DB_LOG_FILE @branch_array;
$Feature_Git_Branch_List{$key} = \@branch_array;

复制代码

这几行好像不太管用。

谢谢

作者: hepower 发布时间: 2010-10-28

@array = @{$data->{branch}}

作者: yybmsrs 发布时间: 2010-10-28

QUOTE:

@array = @{$data->{branch}}
yybmsrs 发表于 2010-10-28 15:41

你好，谢谢回复！你给的代码可行，我想问问
@{$data->{branch}};
这行是什么意思
$data难道是个哈希表么？
如果是哈希表，应该用$data{key}来取元素啊？
另外，branch这个key有可能有，有可能没有，
key存在的情况下
对应的value也许是一个值，也许是一个数组，请问该怎么写呢？

作者: hepower 发布时间: 2010-10-28

reference
http://perldoc.perl.org/perlreftut.html

作者: zhlong8 发布时间: 2010-10-28

回复 hepower