#!/usr/bin/perl

use 5.010;
use strict;
use warnings;
use Data::Dumper;


my %telefonate=();

#StudioNummern importieren
open (NUMMERN, '<', "StudioNummern.txt") or die $!;
my @snr=<NUMMERN>;
chomp @snr;
close (NUMMERN);

#Daten aus .csv-Datei importieren
foreach my $snr (@snr){
my $count=1;	#Telefonate werden gezählt
open (STUD, '<', 'input/FRITZ!Box_Anrufliste_'.$snr.'.csv') or print 'Datei fuer Studio '.$snr.' nicht vorhanden!'."\n";
while (my $line = <STUD>){
chomp($line);
my @wert=split';',$line;
$telefonate{'Studio_'.$snr.'_Telefonat_Nr'.$count}{StudioNr}=$snr;
$telefonate{'Studio_'.$snr.'_Telefonat_Nr'.$count}{typ}=$wert[0];
$telefonate{'Studio_'.$snr.'_Telefonat_Nr'.$count}{datum_und_uhrzeit}=$wert[1];
$telefonate{'Studio_'.$snr.'_Telefonat_Nr'.$count}{name}=$wert[2];
$telefonate{'Studio_'.$snr.'_Telefonat_Nr'.$count}{rufnummer}=$wert[3];
$telefonate{'Studio_'.$snr.'_Telefonat_Nr'.$count}{nebenstelle}=$wert[4];
$telefonate{'Studio_'.$snr.'_Telefonat_Nr'.$count}{eigene_rufnummer}=$wert[5];
$telefonate{'Studio_'.$snr.'_Telefonat_Nr'.$count}{dauer}=$wert[6];
$count++;
}
close (STUD);
}
#Auswertungs-Datei erstellen
open (TXT,'>','output/Auswertung'.'.txt') or die $!;
print (TXT Dumper(\%telefonate)."\n");
close (TXT);