1 files changed, 16 insertions, 0 deletions
diff --git a/mysql-test/suite/percona/grep.inc b/mysql-test/suite/percona/grep.inc
new file mode 100644
index 00000000000..c9c823fa695
--- /dev/null
+++ b/mysql-test/suite/percona/grep.inc
@@ -0,0 +1,16 @@
+perl;
+
+  $file = $ENV{'grep_file'};
+  $pattern = $ENV{'grep_pattern'};
+
+  open(FILE, "$file")
+    or die("Cannot open file $file: $!\n");
+
+  $lines = 0;
+  while(<FILE>) {
+    $lines++ if (/$pattern/);
+  }
+  print "$lines\n";
+
+  close(FILE);
+EOF