16 |
|
|
17 |
=head1 VERSION |
=head1 VERSION |
18 |
|
|
19 |
Version 0.09 |
Version 0.10 |
20 |
|
|
21 |
=cut |
=cut |
22 |
|
|
23 |
our $VERSION = '0.09'; |
our $VERSION = '0.10'; |
24 |
|
|
25 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
26 |
|
|
258 |
|
|
259 |
return $l unless ($rec_regex && $f_nr); |
return $l unless ($rec_regex && $f_nr); |
260 |
|
|
261 |
|
# my $max_regex = 100; |
262 |
|
|
263 |
# apply regexps |
# apply regexps |
264 |
if ($rec_regex && defined($rec_regex->{$f_nr})) { |
if ($rec_regex && defined($rec_regex->{$f_nr})) { |
265 |
$log->logconfess("regexps->{$f_nr} must be ARRAY") if (ref($rec_regex->{$f_nr}) ne 'ARRAY'); |
$log->logconfess("regexps->{$f_nr} must be ARRAY") if (ref($rec_regex->{$f_nr}) ne 'ARRAY'); |
266 |
my $c = 0; |
my $c = 0; |
267 |
foreach my $r (@{ $rec_regex->{$f_nr} }) { |
foreach my $r (@{ $rec_regex->{$f_nr} }) { |
268 |
while ( eval '$l =~ ' . $r ) { $c++ }; |
#$log->debug("\$l = $l\neval \$l =~ $r"); |
269 |
|
eval '$l =~ ' . $r; |
270 |
|
$log->error("error applying regex: $r") if ($@); |
271 |
|
|
272 |
|
# while ( $c < $max_regex && eval '$l =~ ' . $r ) { $c++ }; |
273 |
|
# $log->error("field $f_nr has more than $max_regex regex iterations\n\$l = $l\neval \$l =~ $r") if ($c == $max_regex); |
274 |
|
|
275 |
} |
} |
|
warn "## field $f_nr triggered $c regexpes\n" if ($c && $self->{debug}); |
|
276 |
} |
} |
277 |
|
|
278 |
return $l; |
return $l; |