On Saturday 20 September 2008 04:08:20 pm AndrewMcHorney wrote:
> 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
You also have several typos
--
Jack Gates
http://webpages.charter.net/jlgates/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
