Statement Perl

  1. Home
  2. Perl
  3. Statement
  4. Use until to read user input
#!/usr/bin/perl
print "Are you o.k.? ";
chomp($answer=);
until ($answer eq "yes"){
     sleep(1);
     print "Are you o.k. yet? ";
     chomp($answer=);
}