programming-examples/Use until to read user input.pl at master - programming-examples - michuIT: Everything is code

You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

9 lines

177 B

Perl

Raw Permalink Blame History

 #!/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>);
 }