X-Git-Url: http://lab.mitty.jp/git/?a=blobdiff_plain;f=misc%2Fregexfilter.pl;h=fc456357be53a2af37576269a18e7fbb88ed7289;hb=151083b801351c91b78545e521da845c1b139530;hp=801cbb04b623f9ffe3e1c9b814e0f348799eabd8;hpb=d79589accd6fc8bab3b3d339a47b968b15e09015;p=lab.git

diff --git a/misc/regexfilter.pl b/misc/regexfilter.pl
index 801cbb0..fc45635 100755
--- a/misc/regexfilter.pl
+++ b/misc/regexfilter.pl
@@ -16,7 +16,7 @@ if (! -r $regexfile) {
     exit 1;
 }
 
-my $re = Regexp::Assemble->new(file => "$regexfile");
+my $re = Regexp::Assemble->new(file => "$regexfile", track => 1);
 
 my $target = shift @ARGV;
 
@@ -38,5 +38,9 @@ while ($line = <$input>) {
     else {
         print "NG: ";
     }
-    print $line, "\n";
+    print $line;
+    if ($re->source) {
+        print " /", $re->source, "/";
+    }
+    print "\n";
 }