Print the value in Hash of Hash for two different keys in Perl -

नीचे पर्ल में हैश है:

  मेरे% hash = ('episode1' = & Gt; {'जब' = & gt; '08 .13.97 ',' एयरडेट '= & gt; '08 .13.97', 'एपिसोडेनम्बर ='> '101', 'id' = & gt; '103511', 'title' = & Gt; कार्टमन एक गुदा जांच हो जाता है ',' उपलब्ध '= & gt;' सच '},' एपिसोड 2 '= & gt; {' जब '= & gt; '08 .20.97', 'एयरडेट' = & gt; '08 .20 97 ',' एपिसोडेम्बर '= & gt;' 102 ',' id '= & gt;' 1035156 ',' title '= & gt;' वजन प्राप्त 4000 ',' उपलब्ध '= & gt;' सच '});  

मैं दोनों एपिसोड के "आईडी" को मुद्रित करना चाहता हूं, लेकिन नीचे कोड काम नहीं कर रहा है:

  foreach मेरी $ कुंजी 1 (कुंजी% हैश) {Foreach मेरी $ कुंजी 2 (चाबी% {$ हैश {$ key1}}) {प्रिंट "$ हैश {$ key1} {$ key2} {आईडी} \ n"; }}  

कृपया मदद करें।

इसे आज़माएं:

  foreach मेरी $ कुंजी 1 (कुंजी% हैश) {प्रिंट "$ हैश {$ key1} {id} \ n"; } मेरी $ कुंजी 1 (चाबियाँ% हैश) foreach मेरी $ key2 (कुंजी% {$ हैश {$ key1}})  

या

  प्रिंट "$ हैश {$ key1} {$ key2} \ n" यदि ($ key2 eq 'id'); }}