By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
455,852 Members | 1,426 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 455,852 IT Pros & Developers. It's quick & easy.

Compare two hashes

P: 41
Hi all,
I have two hases, i want to compare these two hashes and returuns a hash which show the difference.

Can anybody help me.


Expand|Select|Wrap|Line Numbers
  1. %trg_hash = ( '1ine 1' => {
  2.      'COL1' => ' ',
  3.      'COL12' => '0',
  4.      'COL15' => '0',
  5.      'COL13' => '0',
  6.      'COL17' => '0',
  7.      'COL3' => ' ',
  8.      'COL11' => '0',
  9.      'COL120' => '0',
  10.      'COL7' => '',
  11.      'COL122' => '001P',
  12.      'COL4' => '',
  13.      'COL6' => '',
  14.      'COL9' => '',
  15.      'COL14' => '0',
  16.      'COL121' => '001P',
  17.      'COL18' => '0',
  18.      'COL5' => '',
  19.      'COL8' => '',
  20.      'COL16' => '0',
  21.      'COL2' => '',
  22.      'COL19' => '0',
  23.      'COL10' => ''
  24.    },
  25.  '1ine 3' => {
  26.      'COL1' => '',
  27.      'COL12' => '0',
  28.      'COL15' => '0',
  29.      'COL13' => '0',
  30.      'COL17' => '0',
  31.      'COL3' => ' ',
  32.      'COL11' => '0',
  33.      'COL120' => '0',
  34.      'COL7' => '',
  35.      'COL122' => '001P',
  36.      'COL4' => '',
  37.      'COL6' => '',
  38.      'COL9' => '',
  39.      'COL14' => '0',
  40.      'COL121' => '001P',
  41.      'COL18' => '0',
  42.      'COL5' => ' ',
  43.      'COL8' => '',
  44.      'COL16' => '0',
  45.      'COL2' => ' ',
  46.      'COL19' => '0',
  47.      'COL10' => ''
  48.   },
  49.  '1ine 2' => {
  50.      'COL1' => '',
  51.      'COL12' => '0',
  52.      'COL15' => '0',
  53.      'COL13' => '0',
  54.      'COL17' => '0',
  55.      'COL3' => ' ',
  56.      'COL11' => '0',
  57.      'COL120' => '0',
  58.      'COL7' => '',
  59.      'COL122' => '001P',
  60.      'COL4' => '',
  61.      'COL6' => '',
  62.      'COL9' => '',
  63.      'COL14' => '0',
  64.      'COL121' => '001P',
  65.      'COL18' => '0',
  66.      'COL5' => '',
  67.      'COL8' => '',
  68.      'COL16' => '0',
  69.      'COL2' => ' ',
  70.      'COL19' => '0',
  71.      'COL10' => ''
  72.   },
  73.  '1ine 4' => {
  74.      'COL1' => ' ',
  75.      'COL12' => '0',
  76.      'COL15' => '0',
  77.      'COL13' => '0',
  78.      'COL17' => '0',
  79.      'COL3' => '',
  80.      'COL11' => '0',
  81.      'COL120' => '0',
  82.      'COL7' => '',
  83.      'COL122' => '001P',
  84.      'COL4' => ' ',
  85.      'COL6' => '',
  86.      'COL9' => '',
  87.      'COL14' => '0',
  88.      'COL121' => '001P',
  89.      'COL18' => '0',
  90.      'COL5' => '',
  91.      'COL8' => '',
  92.      'COL16' => '0',
  93.      'COL2' => ' ',
  94.      'COL19' => '0',
  95.      'COL10' => ''
  96.   },
  97.  '1ine 0' => {
  98.       'COL1' => ' ',
  99.       'COL12' => '0',
  100.       'COL15' => '0',
  101.       'COL13' => '0',
  102.       'COL17' => '0',
  103.       'COL3' => '',
  104.       'COL11' => '0',
  105.       'COL120' => '0',
  106.       'COL7' => '',
  107.       'COL122' => '001P',
  108.       'COL4' => '',
  109.       'COL6' => '',
  110.       'COL9' => '',
  111.       'COL14' => '0',
  112.       'COL121' => '001P',
  113.       'COL18' => '0',
  114.       'COL5' => ' ',
  115.       'COL8' => '',
  116.       'COL16' => '0',
  117.       'COL2' => '',
  118.       'COL19' => '0',
  119.       'COL10' => ''
  120.   },
  121.   );
  122.  
  123.  
  124. %src_hash = ( '1ine[3]' => {
  125.       'COL1' => '0',
  126.       'COL12' => '001P',
  127.       'COL15' => '001P',
  128.       'COL13' => '001P',
  129.       'COL17' => '03/19/2008',
  130.       'COL3' => '0',
  131.       'COL11' => '001P',
  132.       'COL120' => '03/19/2008',
  133.       'COL7' => '0',
  134.       'COL122' => '08/23/1996 00:00:00',
  135.       'COL4' => '0',
  136.       'COL6' => '0',
  137.       'COL9' => '0',
  138.       'COL14' => '001P',
  139.       'COL121' => '08/23/1996 00:00:00',
  140.       'COL18' => '03/19/2008',
  141.       'COL5' => '0',
  142.       'COL8' => '0',
  143.       'COL16' => '03/19/2008',
  144.       'COL2' => '0',
  145.       'COL19' => '03/19/2008',
  146.       'COL10' => '0'
  147.     },
  148.   '1ine[0]' => {
  149.       'COL1' => '0',
  150.       'COL12' => '001P',
  151.       'COL15' => '001P',
  152.       'COL13' => '001P',
  153.       'COL17' => '03/19/2008',
  154.       'COL3' => '0',
  155.       'COL11' => '001P',
  156.       'COL120' => '03/19/2008',
  157.       'COL7' => '0',
  158.       'COL122' => '08/23/1996 00:00:00',
  159.       'COL4' => '0',
  160.       'COL6' => '0',
  161.       'COL9' => '0',
  162.       'COL14' => '001P',
  163.       'COL121' => '08/23/1996 00:00:00',
  164.       'COL18' => '03/19/2008',
  165.       'COL5' => '0',
  166.       'COL8' => '0',
  167.       'COL16' => '03/19/2008',
  168.       'COL2' => '0',
  169.       'COL19' => '03/19/2008',
  170.       'COL10' => '0'
  171.     },
  172.   '1ine[4]' => {
  173.       'COL1' => '0',
  174.       'COL12' => '001P',
  175.       'COL15' => '001P',
  176.       'COL13' => '001P',
  177.       'COL17' => '03/19/2008',
  178.       'COL3' => '0',
  179.       'COL11' => '001P',
  180.       'COL120' => '03/19/2008',
  181.       'COL7' => '0',
  182.       'COL122' => '08/23/1996 00:00:00',
  183.       'COL4' => '0',
  184.       'COL6' => '0',
  185.       'COL9' => '0',
  186.       'COL14' => '001P',
  187.       'COL121' => '08/23/1996 00:00:00',
  188.       'COL18' => '03/19/2008',
  189.       'COL5' => '0',
  190.       'COL8' => '0',
  191.       'COL16' => '03/19/2008',
  192.       'COL2' => '0',
  193.       'COL19' => '03/19/2008',
  194.       'COL10' => '0'
  195.    },
  196.  '1ine[1]' => {
  197.       'COL1' => '0',
  198.       'COL12' => '001P',
  199.       'COL15' => '001P',
  200.       'COL13' => '001P',
  201.       'COL17' => '03/19/2008',
  202.       'COL3' => '0',
  203.       'COL11' => '001P',
  204.       'COL120' => '03/19/2008',
  205.       'COL7' => '0',
  206.       'COL122' => '08/23/1996 00:00:00',
  207.       'COL4' => '0',
  208.       'COL6' => '0',
  209.       'COL9' => '0',
  210.       'COL14' => '001P',
  211.       'COL121' => '08/23/1996 00:00:00',
  212.       'COL18' => '03/19/2008',
  213.       'COL5' => '0',
  214.       'COL8' => '0',
  215.       'COL16' => '03/19/2008',
  216.       'COL2' => '0',
  217.       'COL19' => '03/19/2008',
  218.       'COL10' => '0'
  219.        },
  220.   '1ine[2]' => {
  221.        'COL1' => '0',
  222.        'COL12' => '001P',
  223.        'COL15' => '001P',
  224.        'COL13' => '001P',
  225.        'COL17' => '03/19/2008',
  226.        'COL3' => '0',
  227.        'COL11' => '001P',
  228.        'COL120' => '03/19/2008',
  229.        'COL7' => '0',
  230.        'COL122' => '08/23/1996 00:00:00',
  231.        'COL4' => '0',
  232.        'COL6' => '0',
  233.        'COL9' => '0',
  234.        'COL14' => '001P',
  235.        'COL121' => '08/23/1996 00:00:00',
  236.        'COL18' => '03/19/2008',
  237.        'COL5' => '0',
  238.        'COL8' => '0',
  239.        'COL16' => '03/19/2008',
  240.        'COL2' => '0',
  241.        'COL19' => '03/19/2008',
  242.        'COL10' => '0'
  243.         },
  244.    );
  245.  
Apr 11 '08 #1
Share this Question
Share on Google+
2 Replies


numberwhun
Expert Mod 2.5K+
P: 3,503
How have you tried to compare them so far? Show us the code you have tried, but this time, please use code tags.

Regards,

Jeff
Apr 11 '08 #2

eWish
Expert 100+
P: 971
In addition to what Jeff said, checkout perlfaq4 "How can I get the unique keys from two hashes?" .

--Kevin
Apr 12 '08 #3

Post your reply

Sign in to post your reply or Sign up for a free account.