last if : Last « Statement « Perl

last if

  



#!/usr/bin/perl -w



use strict;



while (<STDIN>) {

    last if $_ eq "done\n";

    print "You entered: $_";

}



print "All done!\n";

Related examples in the same category

1.	Breaking Out
2.	Exit a loop
3.	Exits using the last statement.
4.	Labels: Create an infinite loop to demonstrate how last will break out of multiple code blocks.
5.	Last with label
6.	The last statement breaks out of a loop from within the loop block.
7.	Use a label
8.	Using a label.
9.	Using the last statement in a foreach structure.
10.	last statement
11.	last statement inside an if statement

All other trademarks are property of their respective owners.