296 |
$log->debug("-=> $f_nr ## $l"); |
$log->debug("-=> $f_nr ## $l"); |
297 |
|
|
298 |
# codepage conversion and recode_regex |
# codepage conversion and recode_regex |
299 |
# $l = decode($input_encoding, $l, 1); |
$l = decode($input_encoding, $l, 1); |
|
from_to( $l, $input_encoding, 'utf-8', 1 ); |
|
300 |
$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); |
301 |
|
|
302 |
# apply regexps |
# apply regexps |
315 |
warn "*** $d\n" if ($debug); |
warn "*** $d\n" if ($debug); |
316 |
|
|
317 |
} |
} |
318 |
$log->error("error applying regex: $r") if ($@); |
$log->error("error applying regex: ",dump($r), $@) if $@; |
319 |
} |
} |
320 |
} |
} |
321 |
|
|
719 |
line => $., |
line => $., |
720 |
}; |
}; |
721 |
$log->debug("regex: $regex"); |
$log->debug("regex: $regex"); |
722 |
|
} else { |
723 |
|
die "can't parse: $_"; |
724 |
} |
} |
725 |
} |
} |
726 |
|
|