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

다음과 같이 사용할 수 있습니다 귀하의 해시 키의 수. 당신이 일 (또는 간결을) 수행의 $#array 스타일을 좋아하면 당신은 그것을 좋아하는 수

$#{$hash}; 

CRITICAL 편집 :이 재미있다 ...에

보류. 배열 참조로 사용하려면 작동하지만 외부에서는 사용하지 않는 경우 작동합니다. 당신이 임시로 배열로 키를 할당 한 것을 제공, 당신의 해시의 마지막 키에 액세스 할 경우에 따라서는 유용 :

%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; 인쇄 $ X;

(키 % 해시 스칼라 문맥에 추가 변경은 (스칼라 변수에 할당 목록 맥락에서 키의 값을 반환) .)