Mega Code Archive

 

Categories / Perl / Statement

 

Last if

#!/usr/bin/perl -w use strict; while (<STDIN>) {     last if $_ eq "done\n";     print "You entered: $_"; } print "All done!\n";