Hallo liebe Perl User,
ich bin gerade auf einer Suche nach einer Lösung für ein Dateihandling auf unserem AIX Server.

Wir haben das folgende Problem.
Das ERP System das wir benutzen schreibt in eine Datei mehrere Zeilen.

Diese Zeilen beginnen entweder mit der Ziffer:
0 = Satz fehlerfrei verarbeitet
1 = neuer Satz
4 = Fehler

Bsp.:

0LL0008E
1LL0017I
1LL0017I

Ein anderes System holt diese Datei ab und verarbeitet diese Daten.
Wenn nun dieses andere System nicht mehr produktiv ist, sammeln sich die Anzahl der Zeilen mit 1 als erste Ziffer an.
Nach einiger Zeit kommt dann meist der Anruf an die IT-Hotline das irgendetwas nicht stimmt.
Da das andere System die Daten nicht sofort verarbeitet sondern nur alle 15 min stehen auf alle Fälle immer Zeilen mit der Ziffer 1 an.

Das Programm sollte also diese Text Datei untersuchen und die Zeilen zählen die mit einer 1 beginnen.
Wenn es mehr als 30 Zeilen davon gibt, dann eine Email schreiben mit einer Warnmeldung dass irgend etwas nicht stimmt.

Ist es möglich so etwas in Pearl zu schreiben und wie könnte so ein Programm in etwa aussehen.

Ich bin gerade dabei mir etwas Perl selbst beizubringen aber stehe noch am Anfang.

Vielen Dank

Grüße
Uli