Loggen aber vorher auf dem Bildschirm anzeigen (gelöst) (Allgemeines zu Perl)

[thread]15639[/thread]

Loggen aber vorher auf dem Bildschirm anzeigen [gelöst]

Leser: 16

Articles: hide open all | hide show old branches

+6 replies
Gast loggi

2010-11-16 19:47
Hallo,
ich moechte gerne ein Script implementieren, welches seine Ausgabe auf die Konsole auch, gleichzeitig (samt Ausgaben der aufgerufenen Befehle) in ein log file schreibt.

Angefangen habe ich anhand einer Beschreibung im Netz, in etwa folgendermassen. Nun stoert mich dabei, dass dann alles was man per "print LOG" schreibt gleich ins logfile geht, ohne vorher noch auf dem Bildschirm zu kommen. Momentan gehe ich das Problem an wie unten beschrieben, aber sobald ich bspw. ein ls -al mache, steht im log nur "Total 20" oder sowas.

Wie schafft man es auf den Bildschirm zu schreiben, als auch in eine Logdatei? Gibt es einen eleganteren Weg als den?
Code (perl): (dl )

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

#!/us/bin/perl use strict; use warnings; my $logging = 1; sub logit { return unless $logging; my $msg=shift; print $msg; print LOG $msg; } `rm -f ./some.log`; if( $logging ){ open( LOG, ">> ./some.log"); } &logit("Hello World!\n"); &logit(`ls -al`); if( $logging ){ close( LOG ); }
//Modedit GwenDragon: Zeilenumbruch in Code bei use strict; eingefügt
Last edited: 2010-11-17 09:54:24 +0100 (CET)
- +4 replies
- pq
  
  2010-11-16 19:54
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  der befehl `ls -al` wird im listenkontext aufgerufen und liefert daher eine liste der ausgabezeilen zurück, und deine sub logit() nimmt davon nur die erste zeile.
  am besten schreibst du einfach scalar `ls -al`, dann kommt nur ein string zurück statt einer liste, weil es explizit im skalaren kontext aufgerufen wird.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +3 replies
  - Gast loggi
    
    2010-11-16 20:08
    Danke, das erklaert zumindest mal das Verhalten.
    
    Aber, was ich will ist in manchen Faellen eben genau das Listenverhalten, aber beim loggen sollte es keinen Unterschied machen. Bspw. wenn ich eine Liste von Files auf einem Server ueber ein bestimmtes Tool ziehen will, und auf dieser Liste weiterarbeiten.
    Klar, dass ich das Komando "hol Liste" nur einmal aufrufen werde. Auch klar, dass ich meine "logit" eigentlich nicht umschreiben, bzw eine logit_string eine andere logit_liste schreiben will. Oder ist das der Weg? Humm..
    Ich haette in solchen Faellen gerne mitgeloggt was ich auf den Bildschirm printe, und was auf der Konsole dann ablaeuft, plus etwaigen error stream.
    
    Ich sehe, schon ich hab das vllt etwas schlecht beschrieben, weil der Ansatz das auch nicht leistet. Sowas wie...
    
    Code (perl): (dl )
    
    &logit(@elements = `ls -al`);
    
    ...eben, also dass ich mit @elements weiter arbeiten kann, aber der Output auf Bildschirm und Log steht. Sry wenn ich das etwas dumm beschreibe :-)
    Last edited: 2010-11-16 20:10:36 +0100 (CET)
    - +2 replies
    - pq
      
      2010-11-16 20:12
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      dann schreibst du in der sub logit:
      
      Code (perl): (dl )
      
      1 2 3
      
      my @msgs = @_; print @msgs; ...
      
      dann werden einfach alle parameter ausgegeben.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - Gast loggi
        
        2010-11-16 20:19
        
        waaaaaaahh stimmt!! Bin noch am lernen und vergesse dabei dauernd was ich schon mal ausprobiert hatte, lolol, prima!! Danke!!
        Last edited: 2010-11-16 20:44:32 +0100 (CET)
- bloonix
  
  2010-11-17 22:39
  User since
  2005-12-17
  1615 Artikel
  HausmeisterIn
  Guest loggi
  Wie schafft man es auf den Bildschirm zu schreiben, als auch in eine Logdatei? Gibt es einen eleganteren Weg als den?
  
  So zum 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
  
  #!/usr/bin/perl use strict; use warnings; use Log::Handler; my $log = Log::Handler->new(); $log->add( screen => { maxlevel => "info", } ); $log->add( file => { filename => "some.log", mode => "trunc", # mit trunc wird die Datei jedesmal überschrieben maxlevel => "info", } ); $log->info("Hello World!"); $log->info(`ls -al`); $log->info($_) for `ls -al`; # oder so :-)
  
  Mit minlevel und maxlevel kannst du kontrollieren, wieviele Informationen
  letztendlich geloggt werden.
  What is a good module? That's hard to say.
  What is good code? That's also hard to say.
  One man's Thing of Beauty is another's man's Evil Hack.

View all threads created 2010-11-16 19:47.