[perl] 算參照陣列的count

?

1 2 3 4 5 6 7 8 9 10 11

print Dumper $results; results:$VAR1 = [           {             'num' => '118',             'bday' => '1972-01-25'           },           {             'num' => '123',             'bday' => '1978-08-16'           }         ];

法1:

?

1	print "count:",scalar( @$results );

法2:

?

1 2 3 4 5 6 7 8 9

my $count = 0;   foreach my $r ( @$results ) {       $count ++;   }   print "count:",$count;