Hello all, here i aatch my code please go through it i extract all data from one of my log file and put it into one hash but cant access that data in foreach loops..
open (INFILE1,"timing_manual.rpt");
my %PG; 
use Data::Dumper qw(Dumper);
local $/ = "Startpoint";
while(<INFILE1>){ 

/[(](\w+)[^(]+[(](\w+)[^:]+:\s+(\w+).*?slack[^-]+(-\S+)/s; 
      
$PG{$3}{"$1-$2"}{$cou} = $4; 
$cou++;

}

print Dumper \%PG ;

foreach $path1 ( keys %PG ) { 
        foreach $path2 (keys %{$PG{$path1}} ) {     
        foreach $path3 ( keys %{$PG{$path1{$path2}}} ) {              
+   foreach $path4 (keys %{$PG{$path1{$path2{$path3}}}}) { 
                                            print "$path1 \t $path2 \t
+ $path3 \t $path4\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]
Above here i shows some of timing paths but actually in timing report there are thousands of paths are present.. Please help me out how i can my hash data to further ?? Thanks for your time!! :)

In reply to How to get my hash data using foreach loop?? 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.