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

Popular posts from this blog

MySql variables and php -

url rewriting - How to implement the returnurl like SO in PHP? -

Which Python client library should I use for CouchdB? -