Changeset 5a32926 in lab.git for misc


Ignore:
Timestamp:
Jan 4, 2013 12:50:31 AM (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • misc/regexfilter.pl

    rd79589a r5a32926  
    1717} 
    1818 
    19 my $re = Regexp::Assemble->new(file => "$regexfile"); 
     19my $re = Regexp::Assemble->new(file => "$regexfile", track => 1); 
    2020 
    2121my $target = shift @ARGV; 
     
    3939        print "NG: "; 
    4040    } 
    41     print $line, "\n"; 
     41    print $line; 
     42    if ($re->source) { 
     43        print " /", $re->source, "/"; 
     44    } 
     45    print "\n"; 
    4246} 
Note: See TracChangeset for help on using the changeset viewer.