如何打印元素数量

Question

以下是我的代码，它将返回单位的名称。 但我如何计算和打印使用Perl的单位数？ 基本上打印包含单位标签的元素数量？ 谢谢。

#!/usr/bin/perl -w 
use strict; 
use XML::DOM; 

my $parser = new XML::DOM::Parser; 
my $dom_obj; 

die "Unable to parse XML document\n" 
    unless $dom_obj = $parser->parsefile("course.xml"); 

my @nodes = $dom_obj->getElementsByTagName("unit"); 

foreach my $elem (@nodes) 
{ 
    if ($elem->getNodeType == ELEMENT_NODE) 
    { 
     print $elem->getTagName, "\n"; 
    } 

} 

Answer 1

要查找数组中元素的数量，请在标量上下文中评估数组。

print(scalar(@nodes), "\n"); 

或

print(0+@nodes, "\n"); 

或

print(@nodes . "\n");