Use a label : Last « Statement « Perl






  1. Perl
  2. Statement
  3. Last

Use a label

  

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








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.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