#!/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=; 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 = ){ 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);