#!/usr/bin/perl
use warnings;
use strict;

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 $zeil = 181;
my $korr = "eingepflegt";
my $err = "Fehler";
my $versch = "Verschiebe";
my $cversch = 0;
my $cerr = 0;
my $cerflg = 0;
my $belegezeile = 30914;


while(<LOG>)              #Whileschleife für die Durchsuchung der Datei
{
    if($_ =~ $versch)     #Datei auf "Verschieben" prüfen
    {                     
        $cversch ++;      
    }
    if($_ =~ $korr)       #Datei auf "eingepflegt" prüfen
    {
        $cerflg ++;
    }
    if($_ =~ $err)        #Datei auf "Fehler" prüfen
    {
        $cerr ++;
    }
}


close(LOG);

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";