Revision 112db55e
Von Jan Büren vor mehr als 1 Jahr hinzugefügt
| SL/MT940.pm | ||
|---|---|---|
| 116 | 116 |
# structured |
| 117 | 117 |
my ($separator, $rest) = ($1, $2); |
| 118 | 118 |
my %parts = map { ((substr($_, 0, 2) // '0') * 1 => substr($_, 2)) } split quotemeta($separator), $rest;
|
| 119 |
$transaction{purpose} = _join_entries(\%parts, 20, 29) . _join_entries(\%parts, 60, 63);
|
|
| 119 |
|
|
| 120 |
$transaction{purpose} = join ' ', grep({ $_ ne '' } _join_entries(\%parts, 20, 29), _join_entries(\%parts, 60, 63));
|
|
| 120 | 121 |
$transaction{remote_name} = _join_entries(\%parts, 32, 33, '');
|
| 121 | 122 |
$transaction{remote_bank_code} = $parts{30};
|
| 122 | 123 |
$transaction{remote_account_number} = $parts{31};
|
Auch abrufbar als: Unified diff
MT940 parsen: Verwendungszwecke mit Leerzeichen verbinden