Beginning Web Development With Perl : From Novice to ... - Nabo

334APPENDIX ■ PERL BASICSdoneAll done!$You can use a last in any looping construct (while, until, for, and foreach). However, thelast does not work with the do { } while or do { } until loops.Note that last1.pl could have been written using an expression modifier. It can be arguedthat this code is a bit more readable:#!/usr/bin/perl -w# last2.pluse strict;while () {last if $_ eq "done\ n";print "You entered: $_";}print "All done!\ n";Going On to the NextIf you want to skip the rest of the processing of the body, but don’t want to exit the loop, youcan use next to immediately go execute the next iteration of the loop by testing the expression.Here is an example of a program that reads input from the user, and if the line of input is notblank, the line is printed. It the line is blank, then we immediately go back to read the next line:#!/usr/bin/perl -w# next1.pluse strict;print "Please enter some text:\ n";while () {if ($_ eq "\ n") {next;}chomp;print "You entered: [$_]\ n";}Here is an example of running this program in Windows:$ perl next1.plPlease enter some text:testingYou entered: [testing]oneYou entered: [one]