version 1.18, 2020/11/22 00:02:06 |
version 1.19, 2020/11/22 01:48:36 |
Line 100 sub import_sparkasse_camt ($$$) { |
|
Line 100 sub import_sparkasse_camt ($$$) { |
|
sub import_wellsfargo ($$$) { |
sub import_wellsfargo ($$$) { |
my ($account, $csv_account, $line) = @_; |
my ($account, $csv_account, $line) = @_; |
$line =~ |
$line =~ |
m#^"(\d+)/(\d+)/(\d+)","(-?\d+\.\d+)","\*","","(.*?)"$# or |
m#^"(\d+)/(\d+)/(\d+)","(-?\d+\.\d+)","\*",".*","(.*?)"$# or |
die "parse error: $line" ; |
die "parse error: $line" ; |
my ($month, $day, $year, $amount, $description) = |
my ($month, $day, $year, $amount, $description) = |
($1, $2, $3, $4, $5); |
($1, $2, $3, $4, $5); |