294 |
$log->debug("-=> $f_nr ## $l"); |
$log->debug("-=> $f_nr ## $l"); |
295 |
|
|
296 |
# codepage conversion and recode_regex |
# codepage conversion and recode_regex |
297 |
# from_to($l, $code_page, $self->{'encoding'}); |
from_to($l, $code_page, $self->{'encoding'}); |
|
from_to($l, $code_page, 'utf-8'); |
|
298 |
$l =~ s/($recode_regex)/$recode_map->{$1}/g if ($recode_regex && $recode_map); |
$l =~ s/($recode_regex)/$recode_map->{$1}/g if ($recode_regex && $recode_map); |
299 |
|
|
300 |
# apply regexps |
# apply regexps |
302 |
$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'); |
303 |
my $c = 0; |
my $c = 0; |
304 |
foreach my $r (@{ $rec_regex->{$f_nr} }) { |
foreach my $r (@{ $rec_regex->{$f_nr} }) { |
305 |
#$log->debug("\$l = $l\neval \$l =~ $r"); |
my $old_l = $l; |
306 |
eval '$l =~ ' . $r; |
eval '$l =~ ' . $r; |
307 |
|
if ($old_l ne $l) { |
308 |
|
$log->debug("REGEX on $f_nr eval \$l =~ $r\n## old l: [$old_l]\n## new l: [$l]"); |
309 |
|
} |
310 |
$log->error("error applying regex: $r") if ($@); |
$log->error("error applying regex: $r") if ($@); |
311 |
} |
} |
312 |
} |
} |