Mega Code Archive

 

Categories / Perl / Statement

 

Mixed diamond operator with for loop condition

for (print "Type q to quit.\n"; <> ne "q\n"; print      "Don't you want to quit?\n") {}