Chinaunix

标题: 如何把ARRAY(0x501ca8)中的数据打印出来 [打印本页]
作者: hztj2005    时间: 2017-07-04 17:36
标题: 如何把ARRAY(0x501ca8)中的数据打印出来
本帖最后由 hztj2005 于 2017-07-04 20:43 编辑
  1. use Test;

  3. use XML::XPath;

  5. my $xp = XML::XPath->new(filename => 'customer_order.xml');

  7. my @nodes = $xp->findnodes('/order');

  9. my $ref1= @nodes[0];

  11. print  ${$ref1}."\n";
复制代码


执行上面代码，输出一个数组的地址，我希望把其中的数据print出来，该如何操作？

D:\Strawberry\plcd>perl order.pl

XML::XPath::Node::ElementImpl=ARRAY(0x501ca8)

就是把ARRAY(0x501ca8)中的数据打印出来。

下面是customer_order.xml文件

  1. <?xml version="1.0" standalone="yes"?>
  2. <order>
  3. <customer>
  4.   <name>Coyote, Ltd.</name>
  5.   <shipping_info>
  6.     <address>1313 Desert Road</address>
  7.     <city>Nowheresville</city>
  8.     <state>AZ</state>
  9.     <zip>90210</zip>
  10.   </shipping_info>
  11. </customer>
  12. <item>
  13.   <product id="1111">Acme Rocket Jet Pack</product>
  14.   <quantity type="each">1</quantity>
  15. </item>
  16. <item>
  17.   <product id="2222">Roadrunner Chow</product>
  18.   <quantity type="bag">10</quantity>
  19. </item>
  20. </order>
复制代码



作者: jason680    时间: 2017-07-04 19:02
回复 1# hztj2005

try this ?

my $ref1 = $nodes[0];
print $ref1->toString, "\n";

作者: quanpai    时间: 2017-07-05 10:49
这个要掌握方法，打出来是对象的名字和地址 XML::XPath::Node::ElementImpl=ARRAY(0x501ca，  XML::XPath::Node::Element 是包名

然后我们需要去官方文档看

https://metacpan.org/release/XML-XPath

https://metacpan.org/pod/XML::XPath::Node::Element
作者: hztj2005    时间: 2017-07-05 12:26
quanpai 发表于 2017-07-05 10:49
这个要掌握方法，打出来是对象的名字和地址 XML::XPath::Node::ElementImpl=ARRAY(0x501ca，  XML::XPath ...


谢谢！上面有解说，要是给出例子就更直观了。
toString ( [ norecurse ] )
Output (and all children) the node to a string. Doesn't process children if the norecurse option is a true value.

  1. sub toString {
  2.     my ($self, $norecurse) = @_;

  4.     my $string = '';
  5.     if (! $self->[node_name] ) {
  6.         # root node
  7.         return join('', map { $_->toString($norecurse) } @{$self->[node_children]});
  8.     }

  10.     $string .= "<" . $self->[node_name];
  11.     $string .= join('', map { $_->toString } @{$self->[node_namespaces]});
  12.     $string .= join('', map { $_->toString } @{$self->[node_attribs]});

  14.     if (@{$self->[node_children]}) {
  15.         $string .= ">";

  17.         if (!$norecurse) {
  18.             $string .= join('', map { $_->toString($norecurse) } @{$self->[node_children]});
  19.         }

  21.         $string .= "</" . $self->[node_name] . ">";
  22.     }
  23.     else {
  24.         $string .= " />";
  25.     }

  27.     return $string;
  28. }
复制代码


作者: 104359176    时间: 2018-11-12 07:39
打印引用，直接用 YAML 模块的 Dump, 或者是 JSON 模块的 encode_json:

  1. use YAML qw(Dump);
  2. use JSON qw(encode_json);

  4. # my $ref ....
  5. print Dump($ref);
  6. print encode_json($ref);
复制代码




欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2