version 1.6, 2020/11/10 17:25:58 |
version 1.8, 2020/11/10 17:42:32 |
|
|
sub parse_import_file ($) { |
sub parse_import_file ($) { |
my $fn = shift; |
my $fn = shift; |
my (@compiled, %bookings, %accounts, $import_type); |
my (@compiled, %bookings, %accounts, $import_type); |
my $csv_account = ""; |
my $csv_account; |
if ($fn eq "import_chase_credit.txt") { |
if ($fn eq "import_chase_credit.txt") { |
$import_type = "chase_credit"; |
$import_type = "chase_credit"; |
} elsif ($fn eq "import_capital_one_credit.txt") { |
} elsif ($fn eq "import_capital_one_credit.txt") { |
Line 35 sub parse_import_file ($) { |
|
Line 35 sub parse_import_file ($) { |
|
chomp; |
chomp; |
next if /^(?:#|$)/; |
next if /^(?:#|$)/; |
my $line = $_; |
my $line = $_; |
if (/^ACCOUNT/) { |
if (/^ACCOUNT\s+(\d+)$/) { |
$csv_account = $line; |
$csv_account and die "duplicate ACCOUNT line: $1"; |
$csv_account =~ s/^ACCOUNT\s+(\d+)$/$1/; |
$csv_account = $1; |
next; |
next; |
} |
} |
s/^(.*),\s+(\d+)\s+(\S+)// or |
s/^(.*),\s+(\d+)\s+(\S+)// or |
Line 50 sub parse_import_file ($) { |
|
Line 50 sub parse_import_file ($) { |
|
$accounts{$reg} = $account; |
$accounts{$reg} = $account; |
} |
} |
close $in; |
close $in; |
die "CSV account not defined in $fn" if ($csv_account eq ""); |
$csv_account or die "no ACCOUNT line in $fn"; |
return (\%bookings, \%accounts, \@compiled, $csv_account, $import_type); |
return (\%bookings, \%accounts, \@compiled, $csv_account, $import_type); |
} |
} |
|
|