Mega Code Archive

 

Categories / Perl / Language Basics

 

Boolean operator

print "Please enter numbers from 5 to 10\n"; while (<>) {     chop;     if ($_ < 5 || $_ > 10) {         print "Please enter numbers from 5 to 10\n";     } else {         print "Thank you - let's have another!\n";     } }