Bestimmte sahen von Logfile ablesen vergleichen (Allgemeines zu Perl)

[thread]20508[/thread]

Bestimmte sahen von Logfile ablesen vergleichen

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+5 replies
perlineu

2018-09-06 22:51
User since
2018-09-06
1 Artikel
BenutzerIn
Hallo, ich muss ein Perl Script schreiben, dass von ein Logfile bestimmte Daten abliest und damit arbeitet.
Das Logfile sagt:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

BR0063I 77 of 77 files processed - 430130.359 of 430130.359 MB done BR0115I Compression rate for all files 4.26:1 BR0052I BRBACKUP completed successfully BR0280I BRBACKUP time stamp: 2018-08-21 23:26:43 BR0292I Execution of BRARCHIVE finished with return code 0 Backupgroesse=$(ls -l /C/logfile.txt | awk '{ print $5 }') echo $Backupgroesse; BR0063I 77 of 77 files processed - 430130.359 of 430130.359 MB --> 430130 backupdatum=$(cat /C/logfile.txt | grep BR0280I | tail -1 |awk '{ print $5 }') echo $backupdatum; BR0280I BRBACKUP time stamp: 2018-08-21 23:26:43 --->2018-08-21 backupmeldung=$(cat /C/logfile.txt | grep BR0292I | awk '{ print $5,$6,$7,$8,$9 }') echo $backupmeldung; BR0292I Execution of BRARCHIVE finished with return code 0 --> finished with return code 0 ergb=$(cat /C/logfile.txt | grep BR0292I | awk '{ print $9,$10 }') dateig=$(ls -al /C/logfile.txt | awk '{ print $5 }') BR0292I Execution of BRARCHIVE finished with return code 0 -->0
es muss gerechnet werden: time stamp mit time wenn älter als 7 Tage allarm. Backupgroesse: 430130* (*/ 4.26:1*/) *4.26*1= 183235380 das mit dem Ordner verglechen. wenn finished with return code 0 ist gut wenn finished with return code 12 sofort Mail kann bitte jemand mr helfen, die ganze grep/awk/ abfragen i Perl zu schreiben? Vielen Dank

modedit Edited by pq: code-tags hinzugefügt
Last edited: 2018-09-08 12:33:49 +0200 (CEST)
- +4 replies
- Linuxer
  
  2018-09-06 23:08
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Hallo und Willkommen im Forum.
  
  Wenn Du Daten von Dateien, Ausgaben, Programm-Code oder ähnliches einbaust, packe diese bitte in "Code"-Tags:
  
  Beispiel:
  [code] Beispielhafter Logauszug [/code]
  
  Code: (dl )
  
  Beispielhafter Logauszug
  
  So lassen sich Text und Code viel besser unterscheiden:
  
  Zu Deiner Anfrage:
  
  Das scheint ja bisher ein Shell-Skript zu sein.
  Soll jetzt das ganze Shell-Skript in ein Perl-Skript gewandelt werden, oder sollen die genanten grep/awk Aufrufe jeweils durch einen Perlaufruf ersetzt werden und die Ergebnisse nach wie vor im Shell-Skript landen?
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +3 replies
  - Gast perlineu
    
    2018-09-07 00:05
    Hallo, ich habe leider keine keine code in Perl.
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
    
    #!/usr/bin/perl use strict; use warnings; my $Logpfad = '/c/'; my $Logdatei = " $Lpfad/logfile.txt "; my ($hash,$backupgroesse,$backupdatum,$faktor,$size,$zaehler,$Zeitdieffernz); print $Logdatei; open ($Logdatei) || die ("Error : can't open log file"); #my $Logdatei = '/c/logfile.txt' ; print "$Logdatei"; "perl -lane ' print $ F [0] ' $Ldatei"; #print Ldatei; perl -alne ' print $F (1) $Logdatei' (tut nichts) $backupgroesse=$( ls -l $Logdatei | awk' '{ print $5 }');(geht nicht in Perl) print "$bacupgroesse"
    
    Ich habe versucht das Awk zu umwandern, leider erfolglos.
    
    modedit Editiert von GwenDragon: Bitte Perl das naächste Mal mit CODE-Button formatieren
    Last edited: 2018-09-07 09:09:40 +0200 (CEST)
    - hlubenow
      
      2018-09-07 17:19
      
      User since
      2009-02-22
      875 Artikel
      BenutzerIn
      
      Guest perlineu
      Hallo, ich habe leider keine keine code in Perl.
      
      Falls dieser mysteriöse Satz bedeuten soll, daß Du nicht weißt, wie man Code-Tags für das Forum setzt, das geht so:
      Schreibe erst "[code=perl", dann noch eine abschließende eckige Klammer, so: "]". Dann kopiere danach Deinen Code dorthin. Dann schreibe "[/code", und wieder eine abschließende eckige Klammer, so: "]". Dann sieht es so aus, wie GwenDragon es für Dich in dem obigen Posting umgesetzt hat.
      
      Guest perlineu
      kann bitte jemand mr helfen, die ganze grep/awk/ abfragen i Perl zu schreiben?
      
      Beim Programmieren ist es sehr wichtig, darauf zu achten, daß jeder einzelne Buchstabe richtig geschrieben ist, und auch Groß- und Kleinschreibung beachtet wird. Das gilt für Computersprachen. Wer es aber schon nicht in natürlichen Sprachen (z.B. Englisch, Deutsch) richtig macht, der wird auch in Computersprachen Mühe haben.
      Last edited: 2018-09-07 17:23:12 +0200 (CEST)
    - Linuxer
      
      2018-09-08 19:49
      
      User since
      2006-01-27
      3870 Artikel
      HausmeisterIn
      
      Ich finde, die Antwort passt nicht wirklich zu meiner Frage...
      
      Ich weiß jetzt immer noch nicht, ob alles von einem Perl-Skript gemacht werden soll, oder ob im Shell-Skript nur die grep/awk-Aufrufe durch Perl-Aufrufe ersetzt werden sollen.
      
      Der gezeigte Code deutet auf ein Perl-Skript mit guten Ansätzen hin, wechselt dann aber anscheinend wieder zu Shell-Syntax...
      
      Du musst schon klar trennen.
      Willst Du ein Perl-Skript, dass komplett die Aufgabe übernimmt?
      Oder willst Du ein Shell-Skript, dass ohne grep/awk auskommt?
      
      Vorschlag für den Aufbau eines Perl-Skripts:
      
      definiere korrekten Pfad zur Logdatei
      öffne Datei zum Lesen; siehe perlopentut und perlfunc open
      lese mit einer while()-Schleife zeilenweise vom Filehandle; siehe z.B. https://perlmaven.com/open-and-read-from-files
      innerhalb der Schleife prüfe die Zeile beispielsweise mit Regulären Ausdrücken und extrahiere die gewünschten Daten; siehe perlretut, perlrequick, perlre
      
      Allgemein: Die Perl-Dokumentation ist unter https://perldoc.perl.org/ zu finden und immer einen Blick wert.
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2018-09-06 22:51.