Mega Code Archive

 

Categories / Perl / Statement

 

Using until with print statement

print "Please enter more text (q to quit).\n"  until (<> eq "q\n");