Changeset 185 in lab
- Timestamp:
- Jan 4, 2013 12:50:31 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/misc/regexfilter.pl
r184 r185 17 17 } 18 18 19 my $re = Regexp::Assemble->new(file => "$regexfile" );19 my $re = Regexp::Assemble->new(file => "$regexfile", track => 1); 20 20 21 21 my $target = shift @ARGV; … … 39 39 print "NG: "; 40 40 } 41 print $line, "\n"; 41 print $line; 42 if ($re->source) { 43 print " /", $re->source, "/"; 44 } 45 print "\n"; 42 46 }
Note: See TracChangeset
for help on using the changeset viewer.