Help for this page

Select Code to Download


  1. or download this
    main::(working.pl:11):    while (<$fh>) {
  DB<1> 
...
main::(working.pl:13):               $PG{$3}{"$1-$2"} = $4; 
  DB<1> 
main::(working.pl:12):        /[(](\w+)[^(]+[(](\w+)[^:]+:\s+(\w+).*?s
+lack[^-]+(-\d+)/s;
  2. or download this
    my $report_file = $ARGV[0]||'timing_report.rpt';
my %PG;
...

          use Data::Dump;
          dd \%PG;