#!/usr/local/bin/perl

#Racer
#Demonstrates use of for loops in perl
#NON-CGI version

#Create some variables
$numLaps = 99;       #numeric, the number of laps in the race
$lap =0;             #numeric, the current lap

#get number of laps from user
while($numLaps != 0){
    print("How many laps? (0 to end) ");
    $numLaps = <STDIN>;
    #chop is used to lop off the newline character
    chop($numLaps);
    if ($numLaps > 10){
      print ("That's too far! \n I'll do 10... \n");
      $numLaps = 10;
    } # end if
    for($lap = 1; $lap <= $numLaps; $lap++){
      print("Now on lap # $lap. \n");
    } # end for
    
} # end while

##### sample output #####
# ds9{aharris}3: racer.pl
# How many laps? (0 to end) 12
# That's too far! 
# I'll do 10... 
# Now on lap # 1. 
# Now on lap # 2. 
# Now on lap # 3. 
# Now on lap # 4. 
# Now on lap # 5. 
# Now on lap # 6. 
# Now on lap # 7. 
# Now on lap # 8. 
# Now on lap # 9. 
# Now on lap # 10. 
# How many laps? (0 to end) 3
# Now on lap # 1. 
# Now on lap # 2. 
# Now on lap # 3. 
# How many laps? (0 to end) 0
# ds9{aharris}4: