Logs zählen (gelöst) (Allgemeines zu Perl)

[thread]15823[/thread]

Logs zählen [gelöst]

Leser: 25

Articles: hide open all | hide show old branches

Teilbaum:
fehlendes Modul (15 Artikel) 2011-01-13 18:18

+34 replies
la_dy82

2011-01-09 15:42

User since
2010-10-25
86 Artikel
BenutzerIn

Hallo!
Ich möchte gerne ermitteln, wieviele Logging-Dateien seit einem bestimmten Zeitpunkt vorhanden sind.
Die Loggingbeschriftungen haben folgende Struktur:
meinDat_2011.01.05.log
meinDat_2011.01.06.log
meinDat_2011.01.07.log
meinDat_2011.01.08.log
meinDat_2011.01.09.log

Wenn ich z.B. als Parameter im Skript eingebe: 2010.01.07, dann möchte ich die Logdateien seit dem eingegebenen Datum bis jetzt (im oberen Beispiel wären es drei Loggdateien) speichern. Vielleicht im Hash, oder so??
Das Übergeben des Parameters kriege ich hin, aber die Ermittlung der Loggings nicht. :-(
Kann ich die Loggings irgendwie ermitteln?

Vielen Dank im Voraus.
- +3 replies
- bianca
  
  2011-01-09 15:48
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  Dateinamen kann man wunderbar mit opendir() und readdir() ermitteln. Alle einlesen und schauen, welches im Bereich liegt.
  Ich würde mit Delta_Days aus dem Modul Date::Calc ermitteln, ob ich in der gewünschten Range bin.
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  if ($filename =~ /^meinDat_(\d\d\d\d)\.(\d\d)\.(\d\d)\.log$/) { # jahr = $0 # monat = $1 # tag = $2 }
  
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - la_dy82
    
    2011-01-09 16:01
    User since
    2010-10-25
    86 Artikel
    BenutzerIn
    
    Dankeschön! Ich werde gleich mal den Code ausprobieren was er macht.
    
    Code: (dl )
    
    1 2
    
    if (Delta_Days($year1,$month1,$day1, $year2,$month2,$day2) > 0)
    
    :-)
    - bianca
      
      2011-01-09 16:03
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Hilfestellung: Der ermittelt zwischen zwei Tagen die Anzahl der Tage.
      Wenn das eine vor dem anderen liegt kommt was positives zurück ansonsten was negatives. Wenn sie gleich sind 0.
      Wenn Du das also in der richtigen Reihenfolge im if abfragst weißt Du genau, ob ein bestimmtes Datum zwischen zwei anderen liegt.
      Bei Problemen bitte nochmal fragen.
      10 print "Hallo"
      20 goto 10
- +30 replies
- renee
  
  2011-01-09 16:29
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Da das Datum im Format YYYY.MM.DDDD vorliegt, würde ich das wohl so machen...
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
  
  use File::Find::Rule; my $start = '20110106'; my $dir = '/path/to/dir/with/log/files/'; my @files = File::Find::Rule->file->name( 'meinDat_*.log' )->in( $dir ); my @wanted; for my $file ( @files ) { my ($date) = $file =~ /meinDat_(\d{4}\.\d\d\.\d\d)\.log/; $date =~ s/\.//g; next if $date < $start; push @wanted, $file; } use Data::Dumper; print Dumper \@wanted;
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +13 replies
  - la_dy82
    
    2011-01-09 18:12
    
    User since
    2010-10-25
    86 Artikel
    BenutzerIn
    
    Danke fr die Hilfestellung.
    
    use File::Find::Rule gehört zu den Standard-Modulen, oder?
    
    Kannstdu mir vielleicht kurz erklären, was der Code macht?
    So ein bissl verstehe ich schon, bin aber Perl-Neuling.
    :-)
    - +12 replies
    - bianca
      
      2011-01-09 18:23
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Zeile 6 holt alle Dateinamen mit dem ungefähr passenden Suchmuster in ein Array.
      Zeile 10 schaut nochmal, ob das Suchmuster ganz genau passt und holt gleichzeitig das Datum vom Regex rüber in $date (was in meinem Beispiel $0, $1 und $2 war).
      Zeile 11 holt die Punkte aus $date raus, somit wird z.B. aus 2011.01.09 ein 20110109 was ein nummerischer Wert ist.
      Zeile 13 sagt next für den Fall, dass der Wert in $date (wie eben gebildet) nummerisch kleiner ist, also das Logfile zu alt für den gesuchten Zeitraum ist.
      Man macht sich hier zunutze, dass man das Datum andersherum geschrieben (jahr, monat, tag) ganz einfach als einfachen nummerischen Wert vergleichen kann.
      Zeile 14 schmeißt den gefundenen Dateinamen in ein weiteres Array für spätere Verwendung. Wir wissen ja nicht, was Du damit machen willst.
      
      Edit: Next bedeutet, alle Befehle beginnend nach dem next bis zur schließenden geschweiften Schleifenklammer werden für diesen Durchlauf nicht ausgeführt, quasi übersprungen.
      
      Edit2: Ich hatte Dir Date::Calc genannt, weil das wunderbare Möglichkeiten bietet und mir das ein guter Anlass zum Kennenlernen erschien. Nicht immer ist es nämlich so einfach, ein Datum mit einem anderen zu vergleichen :)
      Last edited: 2011-01-09 18:28:57 +0100 (CET)
      10 print "Hallo"
      20 goto 10
      - +11 replies
      - la_dy82
        
        2011-01-09 18:33
        
        User since
        2010-10-25
        86 Artikel
        BenutzerIn
        
        Danke!
        
        Sind die Dateien geordnet in @files? Wenn NEIN, kann man diese ordnen?
        
        meinDat_2011.01.07.log
        meinDat_2011.01.08.log
        meinDat_2011.01.09.log
        
        +10 replies
        
        bianca
        
        2011-01-09 18:39
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Dann würde ich bei renee's Code ein Hash verwenden.
        Zeile 8 ersetzen durch my %wanted;
        Zeile 14 ersetzen durch: $wanted{$date} = $file;
        
        Und später bei der Verwendung:
        
        Code (perl): (dl )
        
        1 2 3
        
        foreach (sort {$a <=> $b} keys %wanted) { print "$_ -> $wanted{$_}\n"; }
        
        Edit: Zur Erklärung: Bei einem Hash hat man quasi immer einen key/schlüssel und eine value/wert
        Hat z.B. bei Sortierungen ganz ungemeine Vorteile gegenüber einem Array.
        In diesem Beispiel wird also nach keys sortiert die in diesem Fall das umgedrehte Datum JahrMonatTag sind und die values sind die Dateinamen in voller länge.
        Last edited: 2011-01-09 18:42:15 +0100 (CET)
        10 print "Hallo"
        20 goto 10
        
        +9 replies
        
        la_dy82
        
        2011-01-09 18:43
        
        User since
        2010-10-25
        86 Artikel
        BenutzerIn
        
        Achso! Naja jetzt weiß ich , dass im Hash Dinge geordnet werden.
        Danke!!
        
        +8 replies
        
        bianca
        
        2011-01-09 18:49
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2011-01-09T17:43:24 la_dy82
        Achso! Naja jetzt weiß ich , dass im Hash Dinge geordnet werden.
        
        Na ja, in einem Array sind sie eigentlich geordnet und in einem Hash eher nicht. Es kommt wirklich ganz auf die Verwendung an.
        Man hätte in diesem Beispiel mit Sicherheit auch über das Modul File::Find::Rule eine Einlesereihenfolge vorgeben können, dann hätte man das mit dem Array beibehalten können und es wäre gleich bei der Eingabe sortiert gespeichert worden. Das hatte ich aber nicht so schnell zur Hand, weil ich das Modul nicht nutze, worüber ich bei Zeiten auch mal nachdenken sollte.... :)
        Aber irgendwie gefällt mir mein opendir() und readdir() Gefrickel auch nicht schlecht, dass ich immer nutze.
        
        Meine Lösung ist halt nun ein Hash und man sortiert bei der Ausgabe.
        Am Ende würde ein Benchmark über die bessere Lösung entscheiden, wenn sich das bei Deiner Menge lohnt.
        10 print "Hallo"
        20 goto 10
        
        +7 replies
        
        la_dy82
        
        2011-01-09 18:59
        
        User since
        2010-10-25
        86 Artikel
        BenutzerIn
        
        Eigentlich dachte ich mir, dass ich die Logfiles seit dem Datum ermittle und in der Reihenfolge abspeichere.
        Kann ich das irgendwo nachlesen, wo ich dies mit der "Einlesereihenfolge vorgeben" beschrieben steht (so dass es auch ein Neuling versteht)? Oder wie kann man das am Beispiel implementieren?
        Wäre schon gut, wenn an erster Stelle die Logdatei steht, wie auch das Datum seigt:
        meinDat_2011.01.07.log
        meinDat_2011.01.08.log
        meinDat_2011.01.09.log
        
        +2 replies
        
        bianca
        
        2011-01-09 19:10
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Darf ich fragen, warum Du es so haben möchtest?
        10 print "Hallo"
        20 goto 10
        
        la_dy82
        
        2011-01-09 19:34
        
        User since
        2010-10-25
        86 Artikel
        BenutzerIn
        
        Ich möchte aus den Loggings bestimmte Eigenschaften ermitteln und diese für jede Logging zählen.
        Sprich: in meinDat_2011.01.07.log sind 5 Stück vorhanden
        in meinDat_2011.01... sind XXX
        ...
        
        Aus den ermittelten Werten (pro Logging) möchte ich eine Funktion über die Entwicklung der Werte berechen/erstellen (steckt eine mathematische Funktion dahinter). Daher müssen die Loggings in der Reiehnolge sortiert sein, dass ich die berechneten Werte wiederum sortiert parallel dazu in einem anderen Array abspeichern kann.
        Vielleicht lässt sich das auch in einem Hash erstellen, sodass ich einfach die berechneten Werte dem Hashwert zuweise.
        
        +4 replies
        
        bianca
        
        2011-01-10 07:49
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Versuch mal, Zeile 6 durch diese zu ersetzen:
        
        Code (perl): (dl )
        
        my @files = sort {$a cmp $b} File::Find::Rule->file->name( 'meinDat_*.log' )->in( $dir );
        
        Ungetestet!
        10 print "Hallo"
        20 goto 10
        
        +3 replies
        
        la_dy82
        
        2011-01-11 11:38
        
        User since
        2010-10-25
        86 Artikel
        BenutzerIn
        
        Ich wollte nur mitteilen, dass der Inhalt sortiert ist und nicht extra sortiert werden muss.
        
        Die Zeile ist OK:
        
        Code: (dl )
        
        my @files = File::Find::Rule->file->name( 'meinDat_*.log' )->in( $dir );
        
        Was ich jedoch nicht überprüft habe ist, ob das auch so funktioniert, wenn die Daten unsortiert im Ordner vorliegen.
        
        +2 replies
        
        bianca
        
        2011-01-11 12:49
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2011-01-11T10:38:30 la_dy82
        Ich wollte nur mitteilen, dass der Inhalt sortiert ist und nicht extra sortiert werden muss.
        
        Hmm, verstehe nicht ganz den Zusammenhang zwischen den Dateinamen und den Dateiinhalten. Oben hast Du nach der Sortierung der Dateinamen gefragt, wenn ich das richtig verstanden habe.
        
        Ich darf nochmal die Frage zitieren, auf die ich hier geantwortet hatte:
        
        2011-01-09T17:59:29 la_dy82
        Eigentlich dachte ich mir, dass ich die Logfiles seit dem Datum ermittle und in der Reihenfolge abspeichere.
        Kann ich das irgendwo nachlesen, wo ich dies mit der "Einlesereihenfolge vorgeben" beschrieben steht (so dass es auch ein Neuling versteht)? Oder wie kann man das am Beispiel implementieren?
        Wäre schon gut, wenn an erster Stelle die Logdatei steht, wie auch das Datum seigt:
        meinDat_2011.01.07.log
        meinDat_2011.01.08.log
        meinDat_2011.01.09.log
        
        Edit: Zitat korrigiert
        Last edited: 2011-01-11 12:53:17 +0100 (CET)
        10 print "Hallo"
        20 goto 10
        
        la_dy82
        
        2011-01-11 15:15
        
        User since
        2010-10-25
        86 Artikel
        BenutzerIn
        
        Sorry- mein Fehler beim Formulieren. Sollte natürlich Dateinamen heißen.
        Stimmt dann wieder mit dem Kontext der Thematik überein...
        
        EDIT: ...der Thematik... ergänzt
        Last edited: 2011-01-11 15:40:15 +0100 (CET)
  - la_dy82
    
    2011-01-13 10:41
    
    Subtree with 16 replies: fehlendes Modul
    
    User since
    2010-10-25
    86 Artikel
    BenutzerIn
    
    Beim Ausführen des Perl-Skrips unter Padre/Strawberry funktioniert der Code wie beschrieben.
    
    Wenn ich das Skript aufm anderen Rechner laufen lasse (hat ActivePerl-5), dann kommt folgende Fehlermeldung:
    Fehlermeldung Can't locate FILE\FIND\RULE @INC (@INC Contains: C:/Perl/site/lib C:/Perl/lib .) ...
    
    Fehlt mir da das Modul File::Find::Rule?
    
    mod-edit pq: teilbaum "fehlendes Modul"
    Last edited: 2011-01-13 18:18:12 +0100 (CET)

View all threads created 2011-01-09 15:42.