Hello
I am working on a perl script which is strictly loops for performance
testing. For some reason the index for the quarterback index is not
incrementing. Also sometimes I am getting an error message about the
last right bracket. I have looked at this for a while and cannot see
why this is happening. I could use a second set of eyes to look at this.
#! /bin/perl
$NumberQuarterbacks = 32;
$NumberRunningBacks = 60;
$QuarterbackIndex = 0;
while ($QuarterbackIndex < $NumberQuarterbacks)
{
$Runningback1Index = 0;
while ($RunningBack1Index < $NumberRunningBacks)
{
$Runningback2Index = 0;
while ($RunningBack2Index < $NumberRunningBacks - 1)
{
print "QB ".$QuarterbackIndex." ";
print "RB1 ".$RunningBack1Index."\n ";
$RunningBack2Index = $RunningBack2Index + 1;
}
print "QB ".$QuarterbackIndex." ";
print "RB1 ".$RunningBack1Index." ";
print "RB2 ".$RunningBack12ndex." ";
$RunningBack2Index = $RunningBack2Index + 1;
}
$RunningBack1Index = $RunningBack1Index + 1;
}
# print "increment\n";
$QuarterbackIndex = $QuarterbackIndex + 1;
print "\n";
}
Thanks,
Andrew#! /bin/perl
$NumberQuarterbacks = 32;
$NumberRunningBacks = 60;
$QuarterbackIndex = 0;
while ($QuarterbackIndex < $NumberQuarterbacks)
{
$Runningback1Index = 0;
while ($RunningBack1Index < $NumberRunningBacks)
{
$Runningback2Index = 0;
while ($RunningBack2Index < $NumberRunningBacks - 1)
{
print "QB ".$QuarterbackIndex." ";
print "RB1 ".$RunningBack1Index."\n ";
$RunningBack2Index = $RunningBack2Index + 1;
}
print "QB ".$QuarterbackIndex." ";
print "RB1 ".$RunningBack1Index." ";
print "RB2 ".$RunningBack12ndex." ";
$RunningBack2Index = $RunningBack2Index + 1;
}
$RunningBack1Index = $RunningBack1Index + 1;
}
# print "increment\n";
$QuarterbackIndex = $QuarterbackIndex + 1;
print "\n";
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
