version 1.5, 2020/10/20 10:25:47 |
version 1.6, 2020/11/10 19:08:06 |
|
|
|
|
s/^(\d{4})(\d{2})(\d{2}) +// or die "$fn date parse error: $line"; |
s/^(\d{4})(\d{2})(\d{2}) +// or die "$fn date parse error: $line"; |
my ($year, $month, $day) = ($1, $2, $3); |
my ($year, $month, $day) = ($1, $2, $3); |
s/^([A-Z]+(?:\d+\/\d+)?) +// or die "$fn ID parse error: $line"; |
s/^(\S+) +// or die "$fn ID parse error: $line"; |
my $id = $1; |
my $id = $1; |
s/^(\d+) +// or die "$fn debit account number parse error: $line"; |
s/^(\d+) +// or die "$fn debit account number parse error: $line"; |
my $debit = $1; |
my $debit = $1; |