Tipp gesucht - Skriptübergreifende Counter (Allgemeines zu Perl)

[thread]19575[/thread]

Tipp gesucht - Skriptübergreifende Counter

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+7 replies
jan99

2015-03-24 11:23

User since
2008-09-18
439 Artikel
BenutzerIn

Moin !

ich baue gerade an einem größeren Skript was diverse Sub-Funktionen auswertet und für das gesamte Skript Couter (Ok, Warning, Error, Fatal) mitführen soll.

Hat einer von Euch einen Tipp wie man das am besten macht - hash immer an die Funktion mit übergeben und dann zurückgeben oder mit globalen Parametern?

Gruß Jan
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- GwenDragon
  
  2015-03-24 11:32
  
  User since
  2005-01-17
  14757 Artikel
  Admin1
  
  Globale Variablen sind möglich, aber nicht für alle Programmierenden sinnvoll. Also gut dokumentieren und nicht aus Versehen irgendwo nach 7688 Zeilen Programmcode aus Versehen überschrieben.
  
  Klar kannst du auch eine Hashref übergeben.
  
  Du kannst auch eine externe Datei mit den drei Werten verwenden, so ne Art "Minindatenbank".
  
  Muss du entscheiden.
  
  //EDIT: Fragen?
  Last edited: 2015-03-24 11:45:36 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- Linuxer
  
  2015-03-24 11:54
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Oder Du kapselst die Counter und änderst Ihre Werte nur über Funktionsaufrufe. Damit wäre das Risiko minimiert, aus Versehen Globale Werte/Variablen zu überschreiben.
  
  Beispiel:
  
  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
  
  { # initialize counters my %counter = map { $_ => 0 } qw( Ok Warning Error Fatal ); sub increase_counter { my $id = shift; die "(E) Specified counter '$id' does not exist!\n" if not exists $counter{$id}; $counter{$id}++; } sub show_counter { for my $k ( sort keys %counter ) { printf "%10s : %s\n", $k, $counter{$k}; } } } # increase specified counter increase_counter('Ok'); # show values of all counters show_counter();
  
  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!
- +4 replies
- clms
  
  2015-03-24 12:17
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  Hallo Jan,
  
  wie immer in Perl gibt es dafür mehrere Möglichkeiten.
  Je nach Anforderung scheiden manchen Lösungen aus und andere bieten Vorteile.
  
  Mir ist noch nicht 100% klar, was Deine genauen Anforderungen sind.
  Soll z.B. über mehrere Skript-Aufrufe gezählt werden oder hast Du nur einen Skript-Aufruf aber 'zig Stellen (u.U. über mehrere Module verteilt) an denen die Zähler inkrementiert werden?
  
  Aus "(Ok, Warning, Error, Fatal)" rate ich jetzt einmal, dass es Dir um ein Error-Reporting bei einem einzelnen Skript-Aufruf geht. Und am Ende des Skripts möchtest Du dann eine Statistik wie "34 OK, 23 Warnings, 1 Error, 0 Fatal" ausgeben.
  
  Dazu würde ich das Error-Reporting in ein eigenes Modul auslagern und die Zähler dort auf Package-Level als my oder our Variablen deklarieren.
  Beispiel (ungetestet):
  
  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 26
  
  package Report; use strict; use warnings; my ($ok,$warning,$error,$fatal) = (0,0,0,0); sub ok { my $msg = shift; $ok++; print "OK: ".$msg."\n"; } sub warning { $warning++; ... } sub error { $error++;...} sub fatal {$fatal++; ...} sub final_report { print "$ok OK, $warning WARNINGS, $rerror ERRORS, $fatal FATAL\n"; } sub ok_count { $ok}; sub warning_count {$warning;} sub error_count {$error;} sub fatal_count {$fatal;} 1;
  
  Im restlichen Skript rufst Du dann die Funktion Report::warning("Komischer Wert '$param' für XY") etc. auf.
  
  Vorteil dieses Ansatzes ist obendrein, dass Du Dein Logging schön gekapselt hast und es so leicht das Format ändern, um Informationen zum Caller erweitern oder in eine File oder eine Datenbank umlenken kannst.
  - +3 replies
  - jan99
    
    2015-03-24 14:15
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    Vielen Dank für die vielen Postings erst einmal.
    
    Die Lösung mit dem ausgelagerten Package gefällt mir am besten wobei
    
    Quote
    Aus "(Ok, Warning, Error, Fatal)" rate ich jetzt einmal, dass es Dir um ein Error-Reporting bei einem einzelnen Skript-Aufruf geht. Und am Ende des Skripts möchtest Du dann eine Statistik wie "34 OK, 23 Warnings, 1 Error, 0 Fatal" ausgeben.
    
    die Sache richtig trifft.
    
    Nur zur "Sicherheit" einmal nachgefragt das würde dann wie folgt aussehen:
    
    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; use utf8; use EBL::Report my $report_counter=Report; #... # dann ist meine Auswertung irgendwann zuende .. print "Anzahl OK: ".$report_counter->ok_count."\n"; exit(); # meine Sub sub meinefunktion { my counter = shift; # hier zähle ich den Counter hoch wenn irgendetwas ist # if .... $counter->ok; }
    
    Die Variable des Packages wird immer mit an die Sub übergeben....?
    
    Gruß Jan :-)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - +2 replies
    - clms
      
      2015-03-24 15:16
      
      User since
      2010-08-29
      373 Artikel
      BenutzerIn
      
      2015-03-24T13:15:22 jan99
      Nur zur "Sicherheit" einmal nachgefragt das würde dann wie folgt aussehen:
      
      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
      
      #!/usr/bin/perl use strict; use warnings; use utf8; use EBL::Report my $report_counter=Report; #... # dann ist meine Auswertung irgendwann zuende .. print "Anzahl OK: ".$report_counter->ok_count."\n"; exit(); # meine Sub sub meinefunktion { my counter = shift; # hier zähle ich den Counter hoch wenn irgendetwas ist # if .... $counter->ok; }
      
      Nein, so funktioniert das nicht. Mein Beispiel-Package definiert kein Objekt mit Methoden sondern nur statische Funktionen. Den Funktionen wird auch kein Objekt oder Class-Typ als erstes Argument übergeben. Du hast deshalb in Deinem gesamten Skript auch nur eine Variable $ok. (Wenn Du mehrere brauchst, musst Du einen anderen Ansatz wählen.)
      
      Entsprechend brauchst Du auch kein Objekt zu initialisieren. Die Funktionen werden mit dem Package-Namen als Prefix aufgerufen. Also so:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12
      
      ... use EBL::Report; ... # Auswertung print "Anzahl OK: ".EBL::Report::ok_count."\n"; ... sub meinefunktion { # für den Report-Counter muss NICHTS übergeben werden ... EBL::Report::ok(); # increment OK Counter }
      
      Wenn Du der das EBL::Report:: vor den Aufrufen sparen willst, kannst du die Funktionen auch mit Exporter eportieren.
      
      2015-03-24T13:15:22 jan99
      Die Variable des Packages wird immer mit an die Sub übergeben....?
      
      Nein. Die my-Variabeln werden in meinem Beispielcode nie übergeben. Sie sind aber - weil im Package-Scope deklariert - hinter dem my im ganzen Package incl. der dort definierten Funktionen sichtbar und können dort auch verändert werden. Außerhalb des Packages kannst du dagegen nicht auf sie zugreifen. Deshalb brauchst Du dort Accessor-Funktionen wie Report::ok_count() um an den Wert zu kommen.
      - jan99
        
        2015-03-24 16:08
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        Danke erst einmal - folgendes hatte ich schon im weiteren vorbereitet:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
        
        package EBL::ebl_error_counter; use strict; use warnings; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK) ; $VERSION = '1.0' ; require Exporter; @ISA = qw (Exporter AutoLoader) ; @EXPORT = qw (ok, warning, error, fatal, final_report, ok_count, warning_count, error_count, fatal_count); ...
        
        Gruß Jan
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de

View all threads created 2015-03-24 11:23.