Use until to read user input : Until « Statement « Perl






  1. Perl
  2. Statement
  3. Until

Use until to read user input

  

#!/usr/bin/perl
print "Are you o.k.? ";
chomp($answer=<STDIN>);
until ($answer eq "yes"){
     sleep(1);
     print "Are you o.k. yet? ";
     chomp($answer=<STDIN>);
}








Related examples in the same category

1.A program that uses the until statement.
2.Average-sales problem with sentinel-controlled repetition
3.Controlling Loop Flow
4.Looping Until
5.The until Loop
6.The until modifier repeatedly executes the second expression as long as the first expression is false.
7.The until statement
8.Using until with print statement
9.until statement
10.until with continue
11.until with diamond operator
12.until with integer