如何把ARRAY(0x501ca8)中的數據打印出來

hztj2005

1. use Test;
   
2. 
   
3. use XML::XPath;
   
4. 
   
5. my $xp = XML::XPath->new(filename => 'customer_order.xml');
   
6. 
   
7. my @nodes = $xp->findnodes('/order');
   
8. 
   
9. my $ref1= @nodes[0];
   
10. 
    
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

回復 1# hztj2005

try this ?

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

quanpai

這個要掌握方法，打出來是對象的名字和地址 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

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) = @_;
   
3. 
   
4.     my $string = '';
   
5.     if (! $self->[node_name] ) {
   
6.         # root node
   
7.         return join('', map { $_->toString($norecurse) } @{$self->[node_children]});
   
8.     }
   
9. 
   
10.     $string .= "<" . $self->[node_name];
    
11.     $string .= join('', map { $_->toString } @{$self->[node_namespaces]});
    
12.     $string .= join('', map { $_->toString } @{$self->[node_attribs]});
    
13. 
    
14.     if (@{$self->[node_children]}) {
    
15.         $string .= ">";
    
16. 
    
17.         if (!$norecurse) {
    
18.             $string .= join('', map { $_->toString($norecurse) } @{$self->[node_children]});
    
19.         }
    
20. 
    
21.         $string .= "</" . $self->[node_name] . ">";
    
22.     }
    
23.     else {
    
24.         $string .= " />";
    
25.     }
    
26. 
    
27.     return $string;
    
28. }
    

復制代碼

104359176

打印引用，直接用 YAML 模塊的 Dump, 或者是 JSON 模塊的 encode_json:

1. use YAML qw(Dump);
   
2. use JSON qw(encode_json);
   
3. 
   
4. # my $ref ....
   
5. print Dump($ref);
   
6. print encode_json($ref);

復制代碼