1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
use Text::CSV;
use JSON;
my $csv = Text::CSV->new(
{ sep_char => ',',
binary => 1,
quote => "\N{FULLWIDTH QUOTATION MARK}"
}
);
my %transaction;
my @jlist; # used to create the categories json fil0
my $cat_json;
my $file = $ARGV[0] or die "Need to get CSV file on the command line\n";
open( my $csvdata, '<:encoding(UTF-8)', $file )
or die "Could not open '$file' $!\n";
{
open( my $category_file, '<', "categories.json" )
or die "Could not open category file $!\n";
local $/ = undef; # slurp mode!
$cat_json = <$category_file>;
}
my $catref = decode_json $cat_json;
my $cats = $catref->{"data"};
# say qq($catref_d->[0]->{"desc"});
my @descs = map $_->{"desc"}, @{$cats};
sub get_category_from_desc {
my $desc = shift;
for my $hsh ( @{$cats} ) {
if ( $desc eq $hsh->{"desc"} ) {
return $hsh->{"category"};
}
}
}
while ( my $line = <$csvdata> ) {
$line =~ s/^\N{BOM}//;
chomp $line;
if ( $csv->parse($line) ) {
my @fields = $csv->fields();
$transaction{day} = substr $fields[0], 0, 2;
$transaction{month} = substr $fields[0], 3, 2;
$transaction{year} = substr $fields[0], 6, 4;
$transaction{date} = $fields[0];
$fields[1] =~ s/\s+/ /g;
# used to create the categories json file - see below
push @jlist, { "desc" => $fields[1], "category" => "NONE" };
$transaction{desc} = $fields[1];
$transaction{cost} = $fields[2];
for my $d (@descs) {
if ( $transaction{desc} eq $d ) {
$transaction{exp_type} = get_category_from_desc $d;
}
}
if ( $fields[1] =~ /^.+(VIS|DR|DD|TFR|CR|SO|ATM|\)\)\))$/ ) {
$transaction{type} = $1;
}
else { die("CANNOT DETERMINE TYPE!\n") }
if ( $fields[2] =~ /^\-/ ) {
$transaction{expense} = 1;
}
else { $transaction{expense} = 0; }
print join "",
(
$transaction{year}, "/", $transaction{month}, "/",
$transaction{day}, " ", "*", " ",
$transaction{desc}
),
"\n";
if ( $transaction{expense} == 1 ) {
( my $cost = $transaction{cost} ) =~ s/^\-//;
print qq(\t$transaction{exp_type}\t$cost\n);
print "\tassets:hsbc current\t$transaction{cost}\n";
print "\n";
}
else {
print "\tincome:baws\t-$transaction{cost}\n";
print "\tassets:hsbc current\t$transaction{cost}\n";
print "\n";
}
}
else { warn "Line could not be parsed: $line\n"; }
}
# The following code is used to output a JSON file
# to be used for categories. Uncomment for use.
# my $data = encode_json {data => \@jlist};
# open(my $fh, '>', "/tmp/categories.json") or die "Could not open file '/tmp/toss.json' $!";
# print $fh $data;
# close $fh;
# print "done\n";
|
