Statement Perl

  1. Home
  2. Perl
  3. Statement
  4. Exit a loop
$Pattern = "perl";
    $File = "myfile";
    open (FILE,$File) || die "Can't open $File, $!\n";
    while() {
        if (/$Pattern/o) {
            print "$File: $_";
            last;
        }
    }
    close(FILE);