#!/usr/bin/perl

print "Geben Sie den namen der .log Datei ein: " ;
my $log =<STDIN>;
open(LOG, $log) || die "Log nicht gefunden";
#my $log =<STDIN>;
my @zeilen = <LOG>;
my $zeilen;
my $korr = "eingepflegt";
my $err = "Fehler";
my $versch = "Verschiebe";
my $cversch = 0;
my $cerr = 0;
my $cerflg = 0;
my $belegezeile = "30917";

splice(@zeilen, 0, 180);
foreach $zeilen(@zeilen)
{
    if(index($zeilen, $belegezeile)ge 0)
    {
        print "Beginne belege $belegezeile";
    }
    if(index($zeilen, $versch )ge 0)
    {
        $cversch ++;
    }
    if(index($zeilen, $err )ge 0)
    {
        $cerr ++;
    }
    if(index($zeilen, $korr) ge 0)
    {
        $cerflg ++;
    }
}
close(LOG);
print $zeilen[0];
#print $zeilen[180];

print "\n";
print "Datei eingelesen...\n";
print "----------------------------------------------------\n";
sleep 1;
print "Verschobene Dateien: $cversch\n";
print "----------------------------------------------------\n";
sleep 1;
print "Erfolgreich eingepflegte Dateien: $cerflg\n";
print "----------------------------------------------------\n";
sleep 1;
print "Fehler: $cerr\n";