nordea.fi -> smartbudget.se

smartbudget.pl

#!/usr/bin/perl
#
# Script som omvandlar finska Nordeas transaktionslogg till ett format som
# är kompatibelt med bankimporten på smartbudget.se
# Använd med pbcopy för att placera resultatet i clipboard.
# (exportera transaktionerna under fliken "Transaktionsförteckning" i
# kontovyn på Nordeas nätbank)
#
# exempel: 
#
#    ./smartbudget.pl < ../Downloads/Transaktioner.txt | pbcopy
#
# klistra in i importen på smartbudget.se

while (<>) {
  chomp;
  next if /^Kontonummer/;
  next if /^Bokningsdag/;
  s/^[ \t]*//;
  s/[ \t]*$//;
  next if /^$/;
  my ($bokdag, $valutadag, $betalningsdag, $belopp, $motpart, $konto, undef, $referens, $betref, $meddelande) = split /\t+/;
  next unless $belopp;
  
  print isodate($bokdag)."\t".isodate($betalningsdag)."\t".$motpart."\t".$belopp."\n";
}

sub isodate() {
  my ($d, $m, $y) = split /\./, $_[0];
  return "${y}-${m}-${d}";
}