Revision 0cf1de9c
Von Jan Büren vor mehr als 1 Jahr hinzugefügt
| SL/MT940.pm | ||
|---|---|---|
| 69 | 69 |
|
| 70 | 70 |
$local_bank_code = $1; |
| 71 | 71 |
$local_account_number = $2; |
| 72 |
} elsif ($line->[0] =~ m{^:25:([A-Z]{6}[A-Z0-9]{2}[A-Z0-9]{3}?)/(\d+)}) {
|
|
| 72 |
} elsif ($line->[0] =~ m{^:25:([A-Z]{6}[A-Z0-9]{2}[A-Z0-9]{3})/(\d+)}) {
|
|
| 73 | 73 |
# case SWIFT code with 11 chars :25:SOBKDEB2XXX/5436636296EUR |
| 74 | 74 |
# https://stackoverflow.com/questions/3028150/what-is-proper-regex-expression-for-swift-codes |
| 75 | 75 |
$local_bank_code = $1; |
Auch abrufbar als: Unified diff
tests: useless use of ? removed