हैश में केवल एक कुंजी के साथ मुख्य नाम खोजें?

Question

अगर मैं एक हैश

my %h = (
    secret => 1; 
); 

है और मुझे पता है कि केवल है हैश में एक महत्वपूर्ण है, लेकिन मैं नहीं जानता कि यह क्या कहा जाता है।

मैं तो उस हैश

my $key; 
foreach my $i (keys %h) { 
    $key = $h{$i}; 
} 

के माध्यम से पुनरावृति करने के लिए है या वहां कुंजी का नाम पाने के लिए एक बेहतर तरीका है क्या?

Answer 1

एक list slice तो बस उस सूची के पहले तत्व निकालने यह

(keys %h)[0] 

keys सूची लौटाता करना चाहिए,।

Answer 2

my @keys = keys %h; 
my $key = $keys[0]; 

Answer 3

मुझे विश्वास नहीं है कि keys फ़ंक्शन का उपयोग करना आवश्यक है।

my ($key) = %h; 

या

my $key = (%h)[0]; 

हैश कोष्ठक के अंदर एक सूची में विस्तार किया जाएगा, तो हम बस उस सूची है, जो महत्वपूर्ण है के पहले तत्व ले सकते हैं।

Answer 4

[ keys %h ]->[0] पहले की टिप्पणी में Joel उल्लेख विसंगति भी करेगा। यह कोड गंध करता है जैसे कि यह समस्याएं पैदा करेगा। यदि वास्तव में केवल एक ही कुंजी/मूल्य जोड़ी है, तो डेटा को संभालने का एक बेहतर तरीका हो सकता है।

कम से कम, मैं यह सुनिश्चित करने के लिए जांच करता हूं कि उम्मीद कभी चुपचाप उल्लंघन नहीं करती है। जैसे ‐

keys %h == 1 or die "ETOOMANYKEYS"; 
print [ keys %h ]->[0], $/; 

Answer 5

my $k = each %h; 

हालांकि, अगर आप इटरेटर पुनर्स्थापित करने के लिए याद करता है, तो आप कभी भी यह एक ही हैश पर फिर से उपयोग करना चाहते हैं चाहिए। या तो कोई अन्य each ऐसा करेगा, या keys होगा, और यदि स्केलर संदर्भ में उपयोग किया जाता है, तो सूची बनाने से बचें। तो तुम

scalar keys %h; 
# OR 
each %h;   # <- gets the undef 
my $k2 = each %h; # <- gets the first key 

तो उसे रीसेट कर सकते हैं आप इसे इस प्रकार कर सकता है:

my $k = (scalar keys %h, each %h); 

लेकिन JSON संदेशों और सामान जहां सिर्फ एक बार हैश और फेंक में है पढ़ना चाहते हैं पढ़ने की तरह यह मानते हुए इसे दूर, शायद यह सबसे संक्षिप्त है। हालांकि, अगर आप चर शीघ्र चाहते हैं, यह शायद आसान यह करने के लिए है:

my ($k, $v) = each %$simple_JSON_structure; 

Answer 6

my ($key) = keys %h; 

आप असाइनमेंट ऑपरेटर के दोनों किनारों पर सूची संदर्भ का उपयोग कर रहे हैं, कुंजी सूची में पहला आइटम हो जाता है $ कुंजी को सौंपा गया।

Answer 7

आइए पर

my ($key) = %h; 

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

my %h = (a=>b=>c=>'d'); 
my @a = (a=>b=>c=>'d'); 

ठीक है, आप कभी भी इस कोशिश की थी?

my %h = ('key'); 

... या इस:

my @a = ('value'); 
my %h = @a; 

हैश ऊपर थोड़ा अजीब लग सकता है, लेकिन यह मूल्य undef साथ सिर्फ एक कुंजी है।

क्योंकि यह सबसे अधिक संभावना है कि आप कैसे एकल मान का उपयोग करने के लिए कहेगा, मैं का उपयोग करने का सुझाव देते हैं:

my ($key, $value) = %h; 

... या और भी आसान:

my ($key) = %h; 

है यही कारण है कि हमने शुरू ।