Mega Code Archive

 

Categories / Perl / Language Basics

 

Not equals operator

print "Please type the letter y\n"; while (<>) {     chop;     if ($_ ne 'y') {         print "Please type the letter y\n";     } else {         print "Do you always do what you're told?\n";         exit;     } }