Revision 429a7c21
Von Moritz Bunkus vor etwa 4 Jahren hinzugefügt
| SL/MT940.pm | ||
|---|---|---|
|
}
|
||
|
};
|
||
|
|
||
|
my ($active_field);
|
||
|
foreach my $line (read_file($file_name)) {
|
||
|
chomp $line;
|
||
|
$line = Encode::decode('UTF-8', $line);
|
||
|
$line =~ s{\r+}{};
|
||
|
$line_number++;
|
||
|
|
||
|
my $current_field;
|
||
|
if ($line =~ m{^:(\d+[a-z]*):}i) {
|
||
|
$current_field = $1;
|
||
|
$active_field = $1;
|
||
|
}
|
||
|
|
||
|
if (@lines && ($line =~ m{^\%})) {
|
||
|
$lines[-1]->[0] .= substr($line, 1);
|
||
|
|
||
|
} elsif (@lines && ($active_field eq '86') && !$current_field) {
|
||
|
$lines[-1]->[0] .= $line;
|
||
|
|
||
|
} else {
|
||
|
push @lines, [ $line, $line_number ];
|
||
|
}
|
||
Auch abrufbar als: Unified diff
MT940: Multi-Line-Varianten von Tag 86 unterstützen