Changeset 5a32926 in lab.git for misc

Timestamp:

Jan 4, 2013 12:50:31 AM (12 years ago)

Author:

mitty <mitty@…>

Branches:

master, trunk

Children:

788f3de

Parents:

d79589a

Message:

• output matched pattern with "/PATTERN/"

git-svn-id: ​https://lab.mitty.jp/svn/lab/trunk@185 7d2118f6-f56c-43e7-95a2-4bb3031d96e7

File:

• misc/regexfilter.pl (modified) (2 diffs)

misc/regexfilter.pl

@@ -17 +17 @@
 }
 
-my $re = Regexp::Assemble->new(file => "$regexfile");
+my $re = Regexp::Assemble->new(file => "$regexfile", track => 1);
 
 my $target = shift @ARGV;
@@ -39 +39 @@
         print "NG: ";
     }
-    print $line, "\n";
+    print $line;
+    if ($re->source) {
+        print " /", $re->source, "/";
+    }
+    print "\n";
 }