如何打印元素数量

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");