I have Tried to create a Hash data Structure but when i try to access the hash out of the FOR loop i am not getting th e values... also will need help on passing hashes to subroutines and method the compare values in two similar hashes 
sub readDRC ( ) {
my ( $file  , $flag ) = @_ ;
    $drc::tmpFile1 = "${file}.tmp" if ($file) ;
   
   my $moduleName = "" ;
   my $netName ;    
   my @gateInst ;
   my $gate ;    
   my $netCap ;     
   my $violation ;
   my @maxTrans ;
   my $worstTrans ;  
 
   open ( TMPDRC, "<$drc::tmpFile1" ) ;

   my $line ;
   my $i;
   my $j = 0 ;

     @drc::file1 = <TMPDRC>  ; 

    for ( $i = 0 ; $i <= $#drc::file1 - 1 ; $i++ ){     
      if ( $drc::file1[$i] =~ m/^\s*\Module:/i ) {
         $moduleName = getModuleName ( $drc::file1[$i] ) ;
      }                        # End of IF Statement  
      if ( $drc::file1[$i] =~ /Net:/ ) {
         $netName = getNetName ( $drc::file1[$i] ) ;
      }                        # End of IF Statement  
      if ( $drc::file1[$i] =~ /Max Capacitance/ ) {
         @gateInst = getMaxCapacitance ( $drc::file1[$i] ) ;
     $gate =  $gateInst[5].$gateInst[6] ;
      }                        # End of IF Statement  
      if ( $drc::file1[$i] =~ /Net Capacitance/ ) {
         $netCap = getNetCapacitance ( $drc::file1[$i] ) ;
      }                        # End of IF Statement  
      if ( $drc::file1[$i] =~ /VIOLATION/ ) {
         $violation = getViolation ( $drc::file1[$i] ) ;
     if ( $drc::flag ) { $drc::rpt1{$moduleName}{$netName}{$gate}{"Cap
+acitance"} = $violation; }
     else           { $drc::rpt2{$moduleName}{$netName}{$gate}{"Capaci
+tance"} = $violation; }
      }                        # End of IF Statement  
      if ( $drc::file1[$i] =~ /Max Transition/ ) {
         @maxTrans = getMaxTransition ( $drc::file1[$i] ) ;
     $gate =  $maxTrans[5].$maxTrans[6] ;
      }                        # End of IF Statement  
      if ( $drc::file1[$i] =~ /Pin Worst Transition/ ) {
         $worstTrans = getWorstTransition ( $drc::file1[$i] ) ;
      }                        # End of IF Statement  
      if ( $drc::file1[$i] =~ /VIOLATION/ ) {
         $violation = getViolation ( $drc::file1[$i] ) ;
     if ( $drc::flag ) { $drc::rpt1{$moduleName}{$netName}{$gate}{"Tra
+nsition"} = $violation } 
         else         { $drc::rpt2{$moduleName}{$netName}{$gate}{"Tran
+sition"} = $violation } 
      }                        # End of IF Statement  
#    }                        # End of FOR Loop     

# if ($flag) {compareFiles(\@drc::rpt1 , \@drc::rpt2  , \$drc::tmpFile
+1 ) } # Calling The Function to Compare Values
                                            # only if both Hashes are 
+assigned

printValues(\@drc::rpt1) ;
#   my $caps = "Capacitance" ;
#   my $tran = "Transition"; 

#     if ( $drc::rpt1{$moduleName}{$netName}{$gate}{$tran} != $drc::rp
+t2{$moduleName}{$netName}{$gate}{$tran}) { 
#        print " Module = $moduleName \n" ;
#                print " Net = $netName  \n" ;
#                print " Gate = $gate  \n" ;
#                print " Transition Violation Value = $drc::rpt1{$modu
+leName}{$netName}{$gate}{$tran} \n"  ;     
#                print " Capacitance Violation Value = $drc::rpt1{$mod
+uleName}{$netName}{$gate}{$caps} \n"  ;     
#                print " Transition Violation NEW Value = $drc::rpt2{$
+moduleName}{$netName}{$gate}{$tran} \n" ; 
#    }                        # End of IF
    }                        # End of FOR Loop     
  

   close TMPDRC ;
   $drc::flag = 1 ; 
 
#   unlink ( $drc::tmpFile1 ) if ( -f $drc::tmpFile1 ) ;
   return 0 ;                     # mission successful :=)
}

[download]

Edited by Chady -- added code tags.

In reply to Hash Data Structure by gautam_buddha

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.