Mega Code Archive

 

Categories / Perl / Statement

 

Using a label without a loop and the redo statement

#!//usr/bin/perl ATTEMPT: {    print "Yes/No? ";    chomp($answer = <STDIN>);    unless ($answer eq "yes"){       redo ATTEMPT ;    } }