spendingsClassifier/classify.pl at master · klapi85/spendingsClassifier · GitHub

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
use strict;
use utf8;

my %tags = (
        "wspolnota mieszkaniowa" => "Czynsz",
        "dalkia" => "Veolia",
        "veolia" => "Veolia",
        "enea"  => "Enea",
        "ikea"  => "Ikea",
        "inea" => "Inea",
        "north fish" => "Knajpy",
        "cukiernia" => "Knajpy",
        "kawiarnia" => "Knajpy",
        "burger" => "Knajpy",
        "apteka"  => "Leki",
        "oszczednosci" => "Oszczednosci",
        "lotos" => "Paliwo",
        "orlen" => "Paliwo",
        "stacja paliw" => "Paliwo",
        "biedronka" => "Zakupy",
        "lidl" => "Zakupy",
        "chata polska" => "Zakupy",
        "tesco" => "Zakupy",
        "zabka" => "Zakupy",
        "carrefour" => "Zakupy",
        "market" => "Zakupy",
        "akademia smyka" => "Zlobek",
        "odsetki" => "Spłata kredytu",

        "ams " => "Samochód",
        "lnota mieszkaniowa" => "Czynsz",


## todo: pizza , pizzeria, hut, telepizza
## dom lekow,
## piotr i pawel
## aldi
## sushi restauracja
## kebap
## intermarche
## piotr i pawel
## Enel

    );

start();

## Tagowanie budzetu domowego

#AGD
#Czynsz
#Dalkia
#Enea
#Ikea
#Inea
#Inne
#Knajpy
#Leki
#Oszczędności
#Paliwo
#Prezenty
#Samochód
#Spłata kredytu
#Ubezpieczenie
#Wypłata gotówki
#Zakupy
#Zdrowie


sub start
{
    open(IN, "budzet.csv");
    my $l;
    my $lc;
    my $notFound;

    while ($l = <IN>) {
        chomp $l;
        $lc = $l;
        $lc =~ tr/A-Z/a-z/;
        $notFound = 1;
        my @keys = keys %tags;
        my $i = 0;
        my $value;
        while ($notFound && ($keys[$i])) {
            $value = $tags{$keys[$i]};
            if ($lc =~ /$keys[$i]/i) {
                print $l . "," . $value, "\n";
                $notFound = 0;
            } else {
#                print "-d: $keys[$i] - $value \n";
            }
            $i++;
        }
        if ($notFound) {
            print $lc . "," . "Inne\n";
        }
    }

    close IN;
}