I tried to find a quick solution for you but I have to go to bed realy. This only works when the items dir1 .. dirN are unique in each hash and also only if the totals are correct:

use strict ;
use warnings ;
use Data::Dumper ;

my $VAR1 = {
          'data' => {
                      'dir1' => {
                                  'fileA' => {
                                              'pid' => {
                                                         '61781' => 1
                                                       },
                                              'total' => 13
                                            },
                                  'fileB' => {
                                             'pid' => {
                                                        '61799' => 1
                                                      },
                                             'total' => 12
                                           }
                            },
                      'dir2' => {
                                  'fileC' => {
                                              'pid' => {
                                                         '12345' => 1
                                                       },
                                              'total' => 10
                                            },
                                  'fileA' => {
                                             'pid' => {
                                                        '61439' => 1
                                                      },
                                             'total' => 5
                                           }
                            }
                    },
          'total' => {
                       'fileA' => 18,
                       'fileB' => 12,
                       'fileC' => 10,
                     }
        };
        
        
my $VAR2 = {
          'data' => {
                      'dir3' => {
                                  'fileA' => {
                                              'pid' => {
                                                         '616161' => 1
                                                       },
                                              'total' => 6
                                            },
                                  'fileD' => {
                                             'pid' => {
                                                        '54321' => 1
                                                      },
                                             'total' => 12
                                           }
                            },
                      'dir4' => {
                                  'fileE' => {
                                              'pid' => {
                                                         '15151' => 1
                                                       },
                                              'total' => 3
                                            },
                                  'fileA' => {
                                             'pid' => {
                                                        '1718' => 1
                                                      },
                                             'total' => 2
                                           }
                            }
                    },
          'total' => {
                       'fileA' => 8,
                       'fileD' => 12,
                       'fileE' => 3,
                     }
        };
        
foreach ( grep !exists $VAR1->{ data }->{ $_ }, keys %{$VAR2->{ data }
+} ) {
    $VAR1->{ data }->{ $_ } = $VAR2->{ data }->{ $_ } ;
    foreach my $f ( keys %{$VAR2->{ data }->{ $_ }} ) {
        $VAR1->{ total }->{ $f } += $VAR2->{ data }->{ $_ }->{ $f }->{
+ total } ;
    }
}

print Dumper( $VAR1 ) ;

[download]

Veltro

In reply to Re: Merge hashes in specific format by Veltro
in thread Merge hashes in specific format by ovedpo15

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.