version 1.14, 2020/11/18 22:25:05 |
version 1.15, 2020/11/18 23:44:46 |
|
|
"chase_credit" => \&import_chase_credit, |
"chase_credit" => \&import_chase_credit, |
"optum_hsa" => \&import_optum_hsa, |
"optum_hsa" => \&import_optum_hsa, |
"sparkasse_camt" => \&import_sparkasse_camt, |
"sparkasse_camt" => \&import_sparkasse_camt, |
|
"wellsfargo" => \&import_wellsfargo, |
); |
); |
|
|
# === SUBROUTINES ===================================================== |
# === SUBROUTINES ===================================================== |
Line 80 sub import_sparkasse_camt ($$$) { |
|
Line 81 sub import_sparkasse_camt ($$$) { |
|
return $fields[1], |
return $fields[1], |
get_accounts_by_amount_sign($fields[14], $account, $csv_account), |
get_accounts_by_amount_sign($fields[14], $account, $csv_account), |
(join ' ', $fields[11], $fields[4]); |
(join ' ', $fields[11], $fields[4]); |
|
} |
|
|
|
sub import_wellsfargo ($$$) { |
|
my ($account, $csv_account, $line) = @_; |
|
$line =~ |
|
m#^"(\d+)/(\d+)/(\d+)","(-?\d+\.\d+)","\*","","(.*?)"$# or |
|
die "parse error: $line" ; |
|
my ($month, $day, $year, $amount, $description) = |
|
($1, $2, $3, $4, $5); |
|
return "$year$month$day", |
|
get_accounts_by_amount_sign($amount, $account, $csv_account), |
|
$description; |
} |
} |
|
|
sub get_accounts_by_amount_sign ($$$) { |
sub get_accounts_by_amount_sign ($$$) { |