#!/usr/bin/perl -w
use strict;

my @werte = (
	{	'Muster' => '(\d+):(\d+):(\d+)\s+(\d+)\.(\d+),(\d+)',
		'Amizahl' => '$values[3].$values[4].".".$values[5]'
	},
	{	'Muster' => '(\d+):(\d+):(\d+)\s+(\d+),(\d+)',
		'Amizahl' => '$values[3].".".$values[4]'
	}
);
my @sekunden;
my @kurse;

foreach my $w(0..$#werte) {
    open (OUTDATEI,">>/home/tester/tmpfs/outdatei") || die "kann Ausgabedatei nicht öffnen: $!";
    @sekunden = ();
    @kurse = ();
	
    open (UNBEREINIGT,"</home/tester/tmpfs/test1.unb") || die "kann unbereinigte Datei nicht öffnen: $!";

	while (my $line = <UNBEREINIGT>) {
	    my @values = $line =~/$werte[$w]{'Muster'}/;
	    next unless @values;
	    print OUTDATEI $line;

            my $sec = $values[2];
            $sec += $values[1]*60;
            $sec += $values[0]*3600;
            my $amizahl = $werte[$w]{'Amizahl'};
print ("$amizahl\n");
            if ($values[0] < 22 && $values[0] > 07) {
	        push (@sekunden, "$sec");
	        push (@kurse, "$amizahl");
	    }
	}

    close (UNBEREINIGT);
    
    close (OUTDATEI);
}