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