Current File : //usr/share/mysql-test/extra/rpl_tests/grep_pattern.inc
# Please set GREP_FILE and GREP_PATTERN environment variables
# to work this file properly.
--perl
use strict;
my $file= $ENV{'GREP_FILE'} or die "grep file not set";
my $pattern= $ENV{'GREP_PATTERN'} or die "pattern is not set";
open(FILE, "$file") or die("Unable to open $file: $!\n");
my $count = 0;
print "Matching lines are:\n";
while (<FILE>) {
my $line = $_;
if ($line =~ /$pattern/) {
print "$line\n";
$count++;
}
}
if ($count == 0) {
print "None\n";
}
print "Occurrences of the $pattern in the input file : $count\n";
close(FILE);
EOF
Mini Shell