पर्ल में हैश में चाबियों की संख्या कैसे मिल सकती है?

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}; 

गंभीर संपादित करें: पर ... यह दिलचस्प है

होल्ड। यह काम करता है यदि आप इसे सरणी संदर्भ के रूप में उपयोग करना चाहते हैं, लेकिन यदि आप इसे बाहर उपयोग नहीं करते हैं। तो यह उपयोगी है आपके द्वारा दी गई है कि आप एक अस्थायी करने के लिए एक सरणी के रूप में अपनी चाबी निर्दिष्ट कर दी है अपने हैश के अंतिम कुंजी का उपयोग करना चाहते हैं: इस की जाँच करें:

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

Answer 4

लेकिन 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 

Answer 5

यह आसान तरीका में और हैश का किसी भी आकार के लिए काम करेंगे।

प्रिंट स्केलर कुंजी% हैश;

Answer 6

प्रिंट स्केलर कुंजी% हैश;

OR 

$ एक्स = कुंजी% हैश; प्रिंट $ एक्स;

(कुंजी% हैश सूची संदर्भ कि अदिश संदर्भ में आगे के परिवर्तन (अदिश चर करने के लिए जब बताए में चाबियों का मान) ।)