Re^3: Perl script speed

Am I right in thinking that some of lines only have 16 columns, ie no adjustment ?

COLUMNS {instance} {fpin} {fedge} {tpin} {tedge} {net} {cell} {del
+ay} {incr_delay} {slew} {load} {arrival} {required} {stolen} {fanout}
+ {pin_location} {adjustment}
[download]

Update:
I ask because in your code you have these parts which I guess deal with the extra column by concatenating 2 together

if ($l=~/adjustment/) {
  $flag=1; 
}
[download]

and

if ($flag==1 && $_=~/INST/) {
  for($i=0;$i<$#parts-2;++$i) {
     push(@data,$parts[$i]);
  }
  push(@data,"$parts[$i]$parts[$i+1]");
  push(@data,$parts[$i+2]);
} else {
  foreach $l (@parts) {
     push(@data,$l);
  }
}
[download]

poj

Comment on Re^3: Perl script speed Select or Download Code

Replies are listed 'Best First'.
Re^4: Perl script speed by rr27 (Initiate) on Jun 02, 2014 at 13:11 UTC
ya, I have portions in the file which have extra column. but it is not the problem area. Even the columns having 16 without adjustment is showing this error.	[reply]
Re^5: Perl script speed by poj (Abbot) on Jun 02, 2014 at 15:43 UTC
Disable parsing the INST lines by adding a immediate return to `sub instLine` and see if the other lines load ok. `sub instLine { return; . .` [download] poj	[reply] [d/l] [select]