Perlでハッシュのキー数を調べるにはどうすればよいですか？

Question

配列に$#を使用するなど、ハッシュのキーの数を調べるにはどうすればよいですか？

Answer 1

scalar keys %hash 

か、単に

keys %hash 

あなたはスカラーコンテキストですでにしている場合、例えばmy $hash_count = keys %hash  または  print 'bighash' if keys %hash > 1000。

なお、$#arrayは要素数を検出しません。最後のインデックスを検索します。 scalar @arrayは要素の数を検出します。

Answer 2

我々は1以下を返します。これも

my $keys = keys(%r) ; 
print "keys = $keys" ; 

0+(keys %r) 

Answer 3

次のように使用できるよう、あなたのハッシュのキーの数。あなたは、物事（または簡潔）を行うための$#arrayスタイルが好きであれば、あなたはそれを好むことがあります。

$#{$hash}; 

CRITICAL EDIT：

ホールドを上...これは興味深いです。配列参照として使用する場合には機能しますが、外部で使用する場合は使用できません。これをチェックアウト：だから、それはあなたがあなたのハッシュの最後のキーにアクセスする場合は、一時に配列としてあなたの鍵を割り当てたことを提供する便利です

%hash = ("barney" => "dinosaur", "elmo" => "monster"); 
@array = sort {$a cmp $b} keys %hash; 
print $array[$#{$hash}]; 
# prints "elmo" 

Answer 4

をしかしない5.10の後：

use feature ":5.10"; 
my %p =(); 
say $#%p; 

# $# is no longer supported 

さらに悪い：

use feature ":5.10"; 
my %p = (a=>1, b=>2, c=>3); 
say $#{%p}; 

# -1 

Answer 5

これは簡単な方法でハッシュの任意のサイズのために動作します。

スカラーキーを出力する％hash;

Answer 6

スカラーキーを出力する％hash;

OR 

$ X = keys％hash; print $ X;

（キー％ハッシュスカラーコンテキストへのさらなる変更が（スカラー変数に代入リストコンテキスト内のキーの値を返す） 。）