Perlで連想配列の要素の数を取得する覚え書き

使う機会があるかすらわからないけど、Perlで連想配列の要素数を取得する方法を考えてみました。

と言っても、keys でキーの配列を作ってスカラーに代入するだけなんですけどね(^_^;)。

#!/usr/bin/perl

use strict;
use warnings;

my %hash=("a"=>1, "b"=>1, "c"=>1);

my $hashLen = keys %hash;

print $hashLen,"\n"; # 3が表示されます。
 

もしくはscalar関数で評価しちゃうとか・・・。

#!/usr/bin/perl

use strict;
use warnings;

my %hash=("a"=>1, "b"=>1, "c"=>1);

print scalar keys %hash,"\n"; # 3が表示されます。
 

Enjoy!