要素の数を印刷するには

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