Select Code to Download

$NetNameAndFanout = join (" ",$NetName,$NetFanout);
$NetStatsHash{$NetNameAndFanout} = join (" ",$NetCap,$NetRes,$NetLengt
+h,$FirstDriver);

use constant (p_name   => 0,
              p_cap    => 1,
...
              p_driver => 4);

push @{$NetStats[ $NetFanout ] ||= []}, [ $NetName, $NetCap, $NetRes, 
+$NetLength, $FirstDriver, ];

my $filter = sub {
  return 0 if ($UseDriverCell and $_[0]->[p_driver] !~ /$DriverPattern
+/ );
...
    print ("No nets match input criteria when fanout = $i.  Please rev
+iew command-line settings--they may be too restrictive!");
  }
}