From 193c8763447a9ecad4f8ae8d53d82e1e1ca049b3 Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Fri, 24 Jun 2011 21:33:33 +0200 Subject: add mpgrep Signed-off-by: Florian Pritz --- mpgrep | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100755 mpgrep (limited to 'mpgrep') diff --git a/mpgrep b/mpgrep new file mode 100755 index 0000000..aca092b --- /dev/null +++ b/mpgrep @@ -0,0 +1,14 @@ +#!/usr/bin/perl +use warnings; +use strict; + +my @patterns = @ARGV; + +my $pattern; + +LINE: while () { + for $pattern (@patterns) { + next LINE unless m/$pattern/; + } + print; +} -- cgit v1.2.3-24-g4f1b