- if ($self->{'hash_filter'}) {
- $l = $self->{'hash_filter'}->($l);
- next unless defined($l);
- }
-
- # apply regexps
- if ($arg->{regexps} && defined($arg->{regexps}->{$f_nr})) {
- confess "regexps->{$f_nr} must be ARRAY" if (ref($arg->{regexps}->{$f_nr}) ne 'ARRAY');
- my $c = 0;
- foreach my $r (@{ $arg->{regexps}->{$f_nr} }) {
- while ( eval '$l =~ ' . $r ) { $c++ };
- }
- warn "## field $f_nr triggered $c regexpes\n" if ($c && $self->{debug});
- }
+ $l = $hash_filter->($l, $f_nr) if ($hash_filter);
+ next unless defined($l);