亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: 如何把ARRAY(0x501ca8)中的數(shù)據(jù)打印出來 [打印本頁]
作者: hztj2005    時間: 2017-07-04 17:36
標(biāo)題: 如何把ARRAY(0x501ca8)中的數(shù)據(jù)打印出來
本帖最后由 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";
復(fù)制代碼


執(zhí)行上面代碼，輸出一個數(shù)組的地址，我希望把其中的數(shù)據(jù)print出來，該如何操作？

D:\Strawberry\plcd>perl order.pl

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

就是把ARRAY(0x501ca8)中的數(shù)據(jù)打印出來。

下面是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>
復(fù)制代碼



作者: jason680    時間: 2017-07-04 19:02
回復(fù) 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 發(fā)表于 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. }
復(fù)制代碼


作者: 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);
復(fù)制代碼




歡迎光臨 Chinaunix (http://www.72891.cn/) Powered by Discuz! X3.2