How can I autoincrement a Perl hash value? -
डेटाबेस डेटा:
पासपोर्ट_नहीं बैंक स्टेटमेंट_no क्रेडिट_आईडी 4126897 एचएसबीसी 2948608 0 4126897 एचएसबीसी 294860 9 1 4126858 एचएसबीसी 2948591 0 4126858 बार्कलेज 29485 9 0 4126858 बार्कलेज 2948596 1 4126858 बार्कलेज 2948597 2 क्रेडिट आईडी बैंक पर आधारित है। Credit_id (यह मुझे भरने की ज़रूरत है) 0,1,2,3,4
मैं इस तरह से स्वचालित करने की कोशिश कर रहा था
अगर ($ क्रेडिट {$ passport_no} {$ bank}) {$ क्रेडिट { $ passport_no} {$ बैंक} - & gt; {$ बयान} ++; } और {$ क्रेडिट {$ passport_no} {$ bank} - & gt; {$ statement} = 0; }
और मुझे इसे बाहर निकाला गया है:
VAR1 = '4126897'; $ VAR2 = {'एचएसबीसी' = & gt; {'2948608' = & gt; 0, '2 9 4860 9' = & gt; '1'}}; $ VAR3 = '4126858'; $ VAR4 = {'एचएसबीसी' = & gt; {'2948591' = & gt; 0}, 'बार्कलेज' = & gt; {'2948595' = & gt; 0, '2948596' = & gt; '1', '2948597' = & gt; '1'}};
लेकिन मैं
VAR1 = '4126897' की तलाश कर रहा था; $ VAR2 = {'एचएसबीसी' = & gt; {'2948608' = & gt; 0, '2 9 4860 9' = & gt; 1}}; $ VAR3 = '4126858'; $ VAR4 = {'एचएसबीसी' = & gt; {'2948591' = & gt; 0}, 'बार्कलेज' = & gt; {'2948595' = & gt; 0, '2948596' = & gt; 1, '2948597' = & gt; 2}};
यह कैसे हल करें?
यह बहुत ही सरल है, आपको अपनी अनुक्रमित से अलग से अपने ऑटो-वेतन वृद्धि को बचा जाना चाहिए।
< Pre> सख्त का उपयोग करें; चेतावनियों का उपयोग करें; डेटा का उपयोग करें: Dumper; मेरा (% गणना,% क्रेडिट); जबकि (& lt; डेटा & gt;) {my ($ passport_no, $ bank, $ statement) = विभाजन / /; $ क्रेडिट {$ passport_no} {$ bank} {$ स्टेटमेंट} = $ की गणना {$ passport_no} {$ bank} ++; } प्रिंट डम्पर (\% क्रेडिट); __DATA__ 4126897 एचएसबीसी 2948608 0 4126897 एचएसबीसी 294860 9 1 4126897 बार्कलेज 2948610 0 4126897 बार्कलेज 2948611 1 4126897 बार्कलेज 2948612 2 4126897 एसबीआई 2948613 0 4126897 एसबीआई 2948614 1 4126897 एसबीआई 2948615 2
Comments
Post a Comment