Help for this page

Select Code to Download


  1. or download this
    open(FILE, "$filename") or die "Cant open $filename\n";
my @lines = <FILE>;
close(FILE);

my @patternMatchArray = grep { /$myPattern/ } @lines;
  2. or download this
    open(FILE, "$filename") or die "Cant open $filename\n";
my @patternMatchArray = grep { /$myPattern/ } <FILE>;
close(FILE);