11 lines
261 B
Perl
11 lines
261 B
Perl
|
$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);
|