my $ossFingers = $obj->{sectors}->{$sector}->{numFingers};
for(my $j=0;$j<$ossFingers;$j++)
{
$currentSectorPower=$currentSectorPower + $obj->{sectors}->{$secto
+r}->{$j}->{c2i};
$myc2i=$obj->{sectors}->{$sector}->{$j}->{c2i};
#print "Fingers= $myc2i\n";
push @part, $myc2i;
}
## Append @part which contains c2i's with @hist, zero pad the rest if
+fingers less than 8.
push @hist, @part[0..$Fngs];
if ($ossFingers <= 8)
{
my $count = 8 - $ossFingers;
}
|