in reply to Re^3: Hashes of Hash in perl
in thread Perl Hash

Hi, I have incorporated the advice given earlier. but i want to achive the output as below. 
Summary................................................
      Detial_Summary...................................
        EMC CHECK  abcdefghi AZ_checker 2 44.32
        EMC CHECK  KBCDEFGHI AZ_checker 2 24.00
        EMC CHECK    TOTAL        4 64.32
        EMC CHECK1 abcdefghi AZ_checker 2 44.59 
        EMC CHECK1 HGIJHKKIF AZ_checker 2 24.00
        EMC CHECK1    TOTAL        4 68.59
      Detial_Summary        TOTAL        8 132.91
Summary                TOTAL        8 132.91

[download]
The output what i am getting now: 
Summary................................................
      Detial_Summary...................................
                EMC_CHECK      abcdefghi       AZ-Chandler 44.32      
+2
                EMC_CHECK      abcdefghi       AZ-Chandler      TOTAL 
+ 44.32      2
                EMC_CHECK      KBCDEFGHI       AZ-Chandler 24.00      
+2
        EMC_CHECK      abcdefghi       AZ-Chandler      TOTAL  24.00  
+    2

[download]
but i want output as below: 
Summary................................................
      Detial_Summary...................................
                EMC_CHECK      abcdefghi       AZ-Chandler 44.32      
+2
                EMC_CHECK      KBCDEFGHI       AZ-Chandler 24.00      
+2
        EMC_CHECK                      TOTAL       68.32      4
      Detial_Summary        TOTAL        68.32      4
Summary                TOTAL        68.32      4

[download]

Replies are listed 'Best First'.
Re^5: Hashes of Hash in perl
by hdb (Monsignor) on Apr 17, 2013 at 14:18 UTC

    What about my proposal below?

[reply]
      The Input Data:............... 
      Summary Detailed_Summary EMC_CHECK      cycleai00       chanlder     2
+08.592 1
Summary Detailed_Summary EMC_CHECK      cycleai00       chanlder     3
+74.863 1
Summary Detailed_Summary EMC_CHECK      cakiyaa00       chjkslyh    1.
+821   1
Summary Detailed_Summary EMC_CHECK      cakiyaa00       chjkslyh    8.
+094   1
Summary Detailed_Summary EMC_CHECK      chjkiya00       hkjkssas      
+6.623   1
Summary Detailed_Summary Lekatic  chandana-s1    sraidnama 409.982 1
Summary Detailed_Summary Lekatic  chandana-s1    sraidnama 304.887 1
Summary Detailed_Summary Lekatic  chandana-s2    sraidnama 633.845 1
Summary Detailed_Summary Lekatic  chandana-s2    sraidnama 340.582 1
Summary Detailed_Summary Lekatic  chandana-s3    sraidnama 13.074  1
<code>

The Output I am getting now after incorporating your proposal:........
+.
<code>
Summary
        Detailed_Summary
                EMC_CHECK      cycleai00       AZ-Chandler     208.592
+ 1 208.592       1
                EMC_CHECK      cycleai00       AZ-Chandler     208.592
+ 1        TOTAL  1       208.592
                EMC_CHECK      cycleai00       AZ-Chandler     374.863
+ 1 374.863       1
                EMC_CHECK      cycleai00       AZ-Chandler     374.863
+ 1        TOTAL  1       374.863
                EMC_CHECK      cakiyaa00       NC-Charlotte    1.821  
+ 1 1.821 1
                EMC_CHECK      cakiyaa00       NC-Charlotte    1.821  
+ 1        TOTAL  1       1.821
                EMC_CHECK      cakiyaa00       NC-Charlotte    8.094  
+ 1 8.094 1
                EMC_CHECK      cakiyaa00       NC-Charlotte    8.094  
+ 1        TOTAL  1       8.094
                EMC_CHECK      chjkiya00       NY-NewYork      6.623  
+ 1 6.623 1
                EMC_CHECK      chjkiya00       NY-NewYork      6.623  
+ 1        TOTAL  1       6.623
                Lekatic  chandana-s1    PA-Levittown    304.887 1 304.
+887       1
                Lekatic  chandana-s1    PA-Levittown    304.887 1     
+   TOTAL  1       304.887
                Lekatic  chandana-s2    PA-Levittown    409.982 1 409.
+982       1
                Lekatic  chandana-s2    PA-Levittown    409.982 1     
+   TOTAL  1       409.982
                Lekatic  chandana-s2    PA-Levittown    340.582 1 340.
+582       1
                Lekatic  chandana-s2    PA-Levittown    340.582 1     
+   TOTAL  1       340.582
                Lekatic  chandana-s2    PA-Levittown    633.845 1 633.
+845       1
                Lekatic  chandana-s2    PA-Levittown    633.845 1     
+   TOTAL  1       633.845
                Lekatic  chandana-s3    PA-Levittown    13.074  1 13.0
+74        1
                Lekatic  chandana-s3    PA-Levittown    13.074  1     
+   TOTAL  1       13.074

      [download]
      The Output what i want to achive:............. 
      Summary
    Detailed_Summary
        Lekatic    chandana-s2    sraidnama    2    974.427
        Lekatic    chandana-s1    sraidnama    2    714.869
        Lekatic    chandana-s3    sraidnama    1    13.074
        Lekatic         TOTAL            5    1702.37
        EMC_CHECK    cycleai00    chanlder    1    6.623
        EMC_CHECK    cakiyaa00    chjkslyh    2    583.455
        EMC_CHECK    chjkiya00    hkjkssas    2    9.915
        EMC_CHECK     TOTAL                5    599.993
    Detailed_Summary     TOTAL                10    2302.363
Summary                TOTAL                    10    2302.363
Grand TOTAL                    20    5684.684

      [download]
[reply]
[d/l]
[select]
      My code: 
      
while (chomp(@field = split (/\t/, <RPTFILE>)))
    {

    
    
    my $fulllookupKey = $field[1]."\t".  $field[2]."\t". $field[3]."\t
+".$field[4]."\t".$field[5];
    my $RescatKey = $field[0];
    my $RessubcatKey = $field[1];
    my $MasterSrkey = $field[2];


if (exists($output{$RescatKey}{$RessubcatKey}{$fulllookupKey}))       
+ 
    {
       $output{$RescatKey}{$RessubcatKey}{$fulllookupKey}->[0] += $fie
+ld[6];
       $output{$RescatKey}{$RessubcatKey}{$fulllookupKey}->[1] += $fie
+ld[7];
     }
     else
     {
       $output{$RescatKey}{$RessubcatKey}{$fulllookupKey}->[0] = $fiel
+d[6];
       $output{$RescatKey}{$RessubcatKey}{$fulllookupKey}->[1] = $fiel
+d[7]; 
       }     

    }   
   

    for my $k1 (sort keys %output){

    print "$k1\n";

    for my $k2 ( sort keys %{ $output{$k1} }  ) {

    print "\t$k2\n";

     for my $k3 ( sort keys %{ $output{$k1}{$k2} }  ) {

     my $Source = substr($k3,16,100);
     
     print "\t\t$Source $output{$k1}{$k2}{$k3}->[0]\t$output{$k1}{$k2}
+{$k3}->[1]\n";
     print "\t\t$Source\t TOTAL \t$output{$k1}{$k2}{$k3}->[1]\t$output
+{$k1}{$k2}{$k3}->[0]\n";

     }
  }
}

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom