Hello all, i have a problem to acess data from 3D hash. i don't know where i put my data to hash correctly or have accesssing problem in my code.. 
open (INFILE1,"timing_manual.rpt");    my %PG; 
use strict;
use warnings;
while(<INFILE1>){  

        if (/Path Group:\s+(\S+)/) {
                    $temp = $1;
                    $temp =~ s/(\*)+//g ; 
##--here i read one timing file & from that i extract some stringname 
+like("PLB","DCR") and put it into $temp..##--

                    $count_{$temp}++; 
           $PG{$temp_{$cou}} = "$start_brckt$end_brckt";
 ## ----here i put some scaler data like (reg2reg,in2reg,reg2out,in2ou
+t) for my requirment and put it in to hash of hash.. ##----
} 

if (/slack\s+\(VIOLATED\)/) {
            chomp $_ ;
            $_ =~ s/slack\s\(VIOLATED\) \s+//g ;
            $_ =~ s/\s+//g;        
            $PG{$temp}{$slack} = $_ ; 
#--#here from reading file i extract the numeric value(1,0.2,-0.50) an
+d put it into $PG hash..##--
                    }    
} 


for my $pathgroup1 ( keys %PG) {  
        for my $path1 ( keys %{$PG{$pathgroup1}}) {    
            for my $path2 ( keys %{$PG{$pathgroup1}{$path1}}) { 
            
print "\t$pathgroup1 \t $path1 \t $path2  \t\n";    
                       }
             }
        }  

***********************************************************
         TIMING REPORT FROM WHERE I WANT EXTRACT ALL INFO.
***********************************************************
  Startpoint: PLB4ARB8M_ARB_TOP1
              (input port edge-triggered flip-flop clocked by PLBCLK1)
  Endpoint: PLB4ARB8M_ARB_TOP1/reg_PLB_WrBusControlStates_reg[9]
            (rising edge-triggered flip-flop clocked by PLBCLK1)
  Path Group: PLBCLK1
  Path Type: max

  Point                                                   Incr       P
+ath
  --------------------------------------------------------------------
+------
                                                          0.00       2
+.80 r
  library setup time                                     -1.54       1
+.26
  data required time                                                 1
+.26
  --------------------------------------------------------------------
+------
  data required time                                                 1
+.26
  data arrival time                                                 -3
+.24
  --------------------------------------------------------------------
+------
  slack (VIOLATED)                                                  -1

  Startpoint: PLB4ARB8M_ARB_TOP1/reg_PLB_pacr_reg[2]
              (rising edge-triggered flip-flop clocked by PLBCLK1)
  Endpoint: PLB4ARB8M_ARB_TOP1/reg_PLB_pesr_reg[10]
            (rising edge-triggered flip-flop clocked by PLBCLK1)
  Path Group: PLBCLK1
  Path Type: max

  Point                                                   Incr       P
+ath
  --------------------------------------------------------------------
+------
  clock PLBCLK1 (rise edge)                               0.00       0
+.00
  clock network delay (ideal)                             0.00       0
+.00
  --------------------------------------------------------------------
+------
  data required time                                                 2
+.73
  data arrival time                                                 -3
+.65
  --------------------------------------------------------------------
+------
  slack (VIOLATED)                                                  -2



  Startpoint: PLB4ARB8M_ARB_TOP1/reg_PLB_pacr_reg[2]
              (rising edge-triggered flip-flop clocked by PLBCLK1)
  Endpoint: PLB4ARB8M_ARB_TOP1
            (output port edge-triggered flip-flop clocked by PLBCLK1)
  Path Group: PLBCLK
  Path Type: max

  Point                                                   Incr       P
+ath
  --------------------------------------------------------------------
+------
  clock PLBCLK1 (rise edge)                               0.00       0
+.00

  data arrival time                                                 -3
+.24
  --------------------------------------------------------------------
+------
  slack (VIOLATED)                                                  -3


  Startpoint: CPU_DCRADDR[8]
              (input port clocked by DCRDATA)
  Endpoint: PLB_DCRDATA[9]
            (output port clocked by DCRDATA)
  Path Group: PLBCLK
  Path Type: max

  Point                                    Incr       Path
  -----------------------------------------------------------
  clock DCRDATA (rise edge)                0.00       0.00
    -----------------------------------------------------------
  data required time                                  1.14
  data arrival time                                  -1.46
  -----------------------------------------------------------
  slack (VIOLATED)                                   -4

[download]
what i want output is like :
 %PG {
                        PLB {
                            in2reg {     -0.50
                                       0.2
                                }
                            reg2out {     -0.50
                                        0.2 
                                }
                             }
                        DCR {
                            in2out {     -0.50
                                       0.2
                                }
                            reg2out {     0.50
                                      0.2 
                                }        
                             }
                        }

[download]
But its not came like that please help me out.. whats my mistake ?? i put data to hash wrongly or there is printing mistake?? Thanks for our time !

In reply to Hash of hash?? by mak.jordan

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.