如何使用Perl的XML :: Twig从XML中提取子值?

时间:2010-09-22 05:33:59

标签: xml perl xml-twig

我正在解析XML文件并尝试访问XML文件中的值。

#!/usr/bin/perl -w

use strict;
use XML::Twig;

my $file = 'files/camelids.xml';
print "File :: $file\n";
my $twig = XML::Twig->new();

$twig->parsefile($file);
# print "twig :: $twig\n";

my $root = $twig->root;
# print "root :: $root\n";

my $num = $root->children('species');
print "num :: $num\n\n\n";

print $root->children('species')->first_child_text('common-name');

示例XML文件是:

<?xml version="1.0"?>
<camelids>
  <species name="Camelus bactrianus">
    <common-name>Bactrian Camel</common-name>
    <physical-characteristics>
      <mass>450 to 500 kg.</mass>
      <appearance>
          <in-appearance>
              <inside-appearance>This is in inside appearance</inside-appearance>
          </in-appearance>  
      </appearance>
    </physical-characteristics>
  </species>
</camelids>

输出是:

File :: files/camelids.xml
num :: 1


Can't call method "first_child_text" without a package or object reference at xml-twig_read.pl line 19.

如何解决此问题?

此代码行中是否有任何错误以及需要进行的任何修改(此处我尝试将common-name设为Bactrian Camel

print $root->children('species')->first_child_text('common-name');

2 个答案:

答案 0 :(得分:6)

将最后一行更改为

my @nums = $root->children('species');
print "num :: @nums\n\n\n";

foreach my $num (@nums) {
print $num->first_child_text('common-name');
}

children返回一个数组,因此你需要在它上面运行。

要帮助调试,请尝试以下操作:

my @nums = $root->children('species');
use Data::Dumper; #More debug information like this than a normal print
print Dumper @nums;

foreach my $num (@nums) {
print $num->first_child_text('common-name');
}

答案 1 :(得分:2)

use XML::Twig;

my $file = 't2.xml';

print "File :: $file\n";
# exit();
my $twig = XML::Twig->new();

$twig->parsefile($file);
# print "twig :: $twig\n";

my $root = $twig->root;
# print "root :: $root\n";

my @nums = $root->children('species');
*print "num :: " . @nums . "\n\n\n";*

foreach my $num (@nums){
   print $num->first_child_text('common-name') . *"\n";*
}
#exit();