Select Code to Download

Select or download this

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

Select or download this

$NetStatsHash{$NetName}{$NetFanout}{Cap}    = $NetCap;
$NetStatsHash{$NetName}{$NetFanout}{Length} = $NetLength;
$NetStatsHash{$NetName}{$NetFanout}{Driver} = $FirstDriver;

Select or download this

    foreach $KeyNetName (keys %NetStatsHash) {
        @KeyEntries = split (/\s+/,$MasterKey);
...
            $NetCap = $NetDetails[0];
            $NetRes = $NetDetails[1];
### etc.

Select or download this

    foreach $KeyNetName (keys %NetStatsHash) {
      foreach $KeyFanOut ( keys %{ $NetStatsHash{$KeyNetName} } ) {
...
            $NetRes = $NetStatsHash{$KeyNetName}{$KeyFanOut}{Length};
### etc.
      }