मेरा हैश क्यों नहीं है?

Question

मैं निम्नलिखित (एक बग से आदर्शवादी) लघु पर्ल में स्क्रिप्ट है:

my %metadata = undef; 
if (defined %metadata) 
{ 
    print "defined"; 
} 

किसी कारण कार्यक्रम के उत्पादन में हमेशा "परिभाषित" जाता है। तो हैश को "अपरिभाषित" होने के लिए किसी भी तरह से परिभाषित किया गया है। क्या इसे "अपरिभाषित" कहा जाता है?

संपादित करें:

यह आर्दश मामला है, समस्या को दोहराने के प्रयास में है। ,

my %metadata = my_sub_function(); 
if (defined %metadata) 
{ 
    print "defined"; 
} 

my_sub_function के उत्पादन में कहाँ undef हो सकता है() या एक आबादी वाले हैश, और मैं केवल करने के लिए इन मामलों में से आखिरी में "परिभाषित" प्रिंट चाहते हैं: क्या मैं वास्तव में कर रहा हूँ और अधिक की तरह है।

संपादित करें 2:

संयोग से मैं undef के लिए पाया है कि

if (scalar(keys %metadata) 

के लिए सही ढंग से कार्य(), लेकिन अभी भी नहीं।

Answer 1

अपने कार्य undef वापस आती है और कि undef हैश, ऑटो stringification परिवर्तन है कि '' होने की यूएनडीईएफ में रखा गया है और आप के साथ खत्म हो तो: %metadata = ('' => undef)।

अपने कार्य जरूरत वापस जाने के लिए या तो undef, () या एक उचित हैश और आप अलग से तीनों मामलों का परीक्षण करने की जरूरत है, मेरा सुझाव चाहते हैं:

my %metadata = my_sub_function(); 
if (!scalar keys %metadata) { 
    print "An empty list() was returned\n" 
} elsif (
    scalar keys %metadata == 1 and 
    exists $metadata{''} and 
    !defined $metadata{''} 
) { 
    print "undef or '' was returned\n"; 
} else { 
    print "A hash was hopefully returned\n"; 
} 

आप निम्न my_sub_functions साथ यह परीक्षण कर सकते हैं :

sub my_sub_function { return()     } # 1st case 
sub my_sub_function { return undef    } # 2nd case 
sub my_sub_function { return (a => 1, b => 2) } # 3rd case 
sub my_sub_function { return qw/not a hash/  } # unhandled case 

हैप्पी हैकिंग

Answer 2

my %metadata; 
undef %metadata; 
if (defined %metadata) 
{ 
    print "defined"; 
} 

प्रयास करें मुझे लगता है कि यह सिर्फ उपयोग कर रहा था एक "undef" डेटा हैश पॉप्युलेट करने के लिए के रूप में।

"उपयोग चेतावनी" कहा है |:

defined(%hash) is deprecated at t.pl line 6. 
    (Maybe you should just omit the defined()?) 
Odd number of elements in hash assignment at t.pl line 4. 
Use of uninitialized value in list assignment at t.pl line 4. 

undef,() या एक आबादी वाले हैश

तुम सच में एक खाली हैश और कोई हैश के बीच अंतर करना चाहते हैं बेहतर, एक हैश संदर्भ का उपयोग करें (सबराउटिन से पास करने के लिए हल्का, कोई पास-बाय-कॉपी और सभी)।

Answer 3

इस

%metadata=("1"=>"one"); 
undef %metadata; 
if (%metadata) 
{ 
    print "defined"; 
} 

कोशिश और अगर आप perldoc -f defined पर दस्तावेज़ीकरण को देखें, तो यह जाँच के इस तरीके का बहिष्कार कर रही है।

Use of "defined" on aggregates (hashes and arrays) is deprecated. 

Answer 4

अगर आप defined के दस्तावेज़ देखें, तो आप उस मिलेगा,

When defined used on a hash element, 
it tells you whether the value is defined, 
not whether the key exists in the hash. 

सरल कोशिश, if (%a_hash) { print "has hash members\n" }

नोट: undef एक चर है कि शुरू कर दिया गया कभी नहीं का मूल्य है (या undef फ़ंक्शन का उपयोग कर रीसेट कर दिया गया है)। The defined function returns true if the value of the expression is not undef.