Mega Code Archive

 

Categories / Perl / Statement

 

Last statement

FOREVER: for (;;) {     chomp($line = <>);     if ($line eq 'q') {         last FOREVER;     } else {         print "You typed: $line\n";     } }