9 print "$0: list_of_regex [filter_target]\n";
13 my $regexfile = shift @ARGV;
14 if (! -r $regexfile) {
15 warn "$0: cannot read '$regexfile'";
19 my $re = Regexp::Assemble->new(file => "$regexfile", track => 1);
21 my $target = shift @ARGV;
24 unless (defined($target) and -f $target) {
25 print STDERR "read from STDIN\n";
29 open $input, "<$target";
33 while ($line = <$input>) {
35 if ($re->match($line)) {
43 print " /", $re->source, "/";