Как я могу найти количество ключей в хэше в 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

мы тоже можем использовать это

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

 0+(keys %r) 

Answer 3

print scalar keys %hash;

или

$X = keys %hash;
print $X;

keys %hash возвращает значение ключей в контексте списка, которое в дальнейшем изменяется в скалярном контексте (при присваивании скалярной переменной).

Answer 4

Это будет работать легко и для любого размера хэша.

печать скалярных ключей% хеша;

Answer 5

Но не после Perl 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