Using bare blocks to form a multiple-selection structure. : Code Block « Language Basics « Perl

1. Perl
2. Language Basics
3. Code Block

Using bare blocks to form a multiple-selection structure.

 

print "Enter your guess (1-3): ";
$guess = <STDIN>;

BLOCK: { # start of bare block
   if ( $guess == 1 ) { 
      print "Right!\n"; 
      last BLOCK;       # jump to end of BLOCK
   }

   if ( $guess == 2 ) { 
      print "Close!\n"; 
      last BLOCK;       # jump to end of BLOCK
   }

   if ( $guess == 3 ) { 
      print "Wrong!\n"; 
      last BLOCK;       # jump to end of BLOCK
   }

   # default case; 
   {
      print "Please re-enter your guess (1-3): "; 
      $guess = <STDIN>; 
      redo BLOCK;       # jump to beginning of BLOCK
   }
}

   
  

Related examples in the same category