use strict;
use warnings;
use POSIX qw/ strftime /;

# Deklarationsteil allgemein
my $datum = strftime("%d.%m.%Y", localtime);
my $tag = strftime("%d", localtime);          									# Gekürzt um nur 18 anzuzeigen
my $monat = strftime("%m", localtime);         									# Gekürzt um nur Monat anzuzeigen
my $jahr = strftime("%Y", localtime);        									# Gekürzt um nur Jahr anzuzeigen
my $line;

# Main Programm
&progmax;

# Subroutine progmax
sub progmax{
	my $file = "C:\\test\\08.03.2019_uebersicht.txt";			# Quelldatei des Tageslogs
	my $file2 = "C:\\test\\03.2019.csv";						# Name der Zieldatei
	my $anzzeilen = 0;                                          # Zeilen in der Quelldatei zählen auf 0 setzten
	my ($index);
	my (@index);
	my (@daten);
	my %verfugbar = ();
	my %max = ();
	open (QUELLEneu, $file) || die " FEHLER: Datei $file nicht gefunden !!";        # Quelldatei öffnen, wenn nicht vorhanden abbrechen
	while (<QUELLEneu>) {                                                                  
		$line = $_;                                                                 # Quelldatei zeilenweise abarbeiten
		if ($line =~ /(\d{1,2}:\d{2})/){                        				    # Ist die Zeile eine Uhrzeit??
	        next}            						                                # Dann einfach weiter und die Uhrzeit nicht beachten
		elsif
		(chomp($line)){                                                             # Quellzeile glätten
		$anzzeilen++;                                                               # Zeilen in der Quelldatei zählen
		@daten = split(/ ; /,$line);                                                # Eingelesene Zeile splitten (ist durch ; getrennt)
		$index = $daten[0]; 
		@index = $daten[0];                                                         
		$verfugbar{$index} = $daten[1];                                            
			if ($max{$index} <= $daten[2]) {                                        
			$max{$index} = $daten[2];                                               
		 		}
			}
			}
	open (ZIEL, ">$file2"); 
	print ZIEL ";$datum\n";
	print ZIEL sort {"\U$a" cmp "\U$b"} map { "$_ ; $max{$_};\n" } keys %max;
	close (QUELLEneu);
	close (ZIEL);
}