#!/usr/bin/perl
# Konverterer filer fra DNB.no/bedrift til noe e-conomic.no kan bruke i bankavstemming
# Filene er generert ved kontoutskrift - lagre til fil
use strict;
our $filnavn;
our $filUt;
our $linjeNr = 1;
our $linjeNrUt = 0;
our @felt;
our $linjeUt;
defined $ARGV[0] or die "Riktig bruk: $0 filnavn\n";
$filnavn = $ARGV[0];
$filUt = $filnavn;
$filUt =~ s/\.\w+$/\.csv/;
open(our $FH_INN, '<', $filnavn);
open(our $FH_UT, '>', $filUt);
while (my $linje = <$FH_INN>) {
chomp $linje;
# Hopp over de fem første linjene, som er DNB's header.
# Deretter splitter i opp i individuelle felt, og tar ut det vi skal ha
if ($linjeNr >= 5) {
@felt = split /;/,$linje;
if (@felt == 11) {
$linjeUt = '"' . $felt[0] . '","' . $felt[1] . ' ' . $felt[2] . '"';
# Legg til rett kolonne med beløp, for inn eller ut fra kontoen
if ($felt[5]) {
$linjeUt .= ',"' . $felt[5] . '"';
}
else {
$linjeUt .= ',"' . $felt[6] . '"';
}
print $FH_UT $linjeUt . "\n";
$linjeNrUt++;
}
}
$linjeNr++;
}
close($FH_INN);
close($FH_UT);
print "$linjeNr er lest ut til $linjeNrUt linjer i $filUt\n"