[UTIL] New metagrep -F option
authorAaron Crane <arc@cpan.org>
Fri, 22 Apr 2016 12:44:46 +0000 (13:44 +0100)
committerAaron Crane <arc@cpan.org>
Fri, 22 Apr 2016 12:45:20 +0000 (13:45 +0100)
Does fixed-string matching, like grep -F.

bin/metagrep

index 277e725..b9d0707 100755 (executable)
@@ -6,15 +6,18 @@ use warnings;
 use Getopt::Long qw(:config bundling nopermute passthrough);
 my $opt_l = 0;
 my $opt_w = 0;
+my $opt_F = 0;
 GetOptions (
     "w|word!"  => \$opt_w,
     "l|list!"  => \$opt_l,
-    ) or die "usage: metagrep [-w] [-l] pattern\n";
+    "F|fixed!" => \$opt_F,
+    ) or die "usage: metagrep [-w] [-l] [-F] pattern\n";
 
 use Cwd qw(getcwd abs_path);
 use File::Find;
 
 my $pat = shift or die "usage: metagrep pattern\n";
+$opt_F and $pat = quotemeta $pat;
 $opt_w and $pat = "\\b$pat\\b";
 $pat = qr/$pat/i;