Exit a loop : Last « Statement « Perl






Exit a loop

  

    $Pattern = "perl";
    $File = "myfile";
    open (FILE,$File) || die "Can't open $File, $!\n";
    while(<FILE>) {
        if (/$Pattern/o) {
            print "$File: $_";
            last;
        }
    }
    close(FILE);

   
    
  








Related examples in the same category

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