Problem mit Filehandle im END Block (Allgemeines zu Perl)

[thread]19223[/thread]

Problem mit Filehandle im END Block

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+9 replies
PROXEN

2014-08-04 20:23
User since
2013-07-23
21 Artikel
BenutzerIn
Hallo,

mit folgendem Code möchte ich bestimmte Sachen in ein File loggen.
Mit select LOGFILE oder select STDOUT möchte ich umschalten um nicht alles loggen zu müssen.
Wenn ich jetzt aber das Programm bei der Pause mit STRG+C abbreche funktioniert das LOGGEN ins File nicht mehr und ich weiß nicht warum. Läuft das Programm durch wird alles gelogged.

thx proxen
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

$SIG{INT} = \&interrupt; open LOGFILE, "|-", "tee some_file.out"; LOGFILE->autoflush(1); select LOGFILE; print "fileconsole!\n"; print "pause\n"; my $in = <STDIN>; select STDOUT; print "console1\n"; die; sub interrupt { print "Caught a control c!\n"; die; } END { select LOGFILE; if(fileno(LOGFILE)){ print "close logfile\n"; close(LOGFILE) or warn; } }
- +7 replies
- Linuxer
  
  2014-08-04 21:36
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Hi,
  
  kann ich so nicht nachvollziehen:
  
  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 27 28 29 30 31 32 33 34 35
  
  #! /usr/bin/env perl use strict; use warnings; sub interrupt { warn "CTRL+C detected.\n"; die; } sub ask_user { my $msg = shift; print $msg; chomp( my $input = <STDIN> || '' ); return $input; } $SIG{INT} = \&interrupt; open my $logh, '>', "/tmp/log.txt" or die "$!"; print $logh "Opened Logfile.\n"; while ( my $input = ask_user("Enter something: ") ) { print $logh $input, "\n"; } close $logh or die "$!"; END { return unless fileno $logh; print $logh "Close Logfile.\n"; close $logh or warn $!; }
  
  "Beende" ich die while-Schleife mit einem CTRL+D, wird das logfile still geschlossen, bevor der END-Block ausgeführt wird.
  Breche ich die Schleife mit einem CTRL+C ab, greift das die() in interrupt() und das Logfile wird erst im END-Block geschlossen.
  
  PS: Probiere gerade mit Deinem Code herum. Da habe ich auch das von Dir beschriebene Verhalten. Die Ursache habe ich noch nicht gefunden...
  Last edited: 2014-08-04 21:53:54 +0200 (CEST)
  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!
  - +6 replies
  - PROXEN
    
    2014-08-04 21:53
    User since
    2013-07-23
    21 Artikel
    BenutzerIn
    
    Hallo,
    
    wenn du nochmal diesen Code ausführst und bei Pause mit STRG+C beendest, wirst du sehen, dass im END Block nichts ins File geschrieben wird und der Filehandle nicht geschlossen werden kann. Ich verwende einen anderen Ansatz und möchte print auch im END Block verwenden und zwischen diesen Filehandels mit select hin und her wechseln sonst muss ich immer im print umständlich das Filehandle mit angeben.
    
    thx proxen
    
    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
    
    $SIG{INT} = \&interrupt; open LOGFILE, "|-", "tee some_file.out"; LOGFILE->autoflush(1); select LOGFILE; print "fileconsole!\n"; print "pause\n"; my $in = <STDIN>; select STDOUT; print "console1\n"; die; sub interrupt { print "Caught a control c!\n"; die; } END { if(fileno(LOGFILE)){ print "close logfile\n"; close(LOGFILE) or warn; } }
    - Linuxer
      
      2014-08-04 21:59
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Mal doof gefragt: Was spricht eigentlich gegen eine eigene Log-Routine oder die Nutzung eines Log-Moduls?
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      sub mylog { my $msg = shift; print LOGFILE $msg or die "Cannot write to logfile: $!"; }
      
      Mit so einer Lösung spart man sich das ständige select() und das drüber Nachdenken, wohin das print() denn nun eigentlich schreibt.
      
      Code: (dl )
      
      1 2
      
      print "bla"; # nach STDOUT mylog "blub"; # nach logfile
      
      Last edited: 2014-08-04 22:02:27 +0200 (CEST)
      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
    - Linuxer
      
      2014-08-04 22:10
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Das Problem scheint Deine Pipe nach tee zu sein; ersetze ich diese durch eine Umleitung in eine Datei, steht da auch nachher das Erwartete drin (gut, dafür erscheint nichts mehr auf der Konsole; aber es geht ums Prinzip, wo die Ausgaben bleiben).
      
      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 27 28 29 30
      
      #! /usr/bin/env perl use strict; use warnings; $SIG{INT} = \&interrupt; #open LOGFILE, "|-", "tee some_file.out"; open LOGFILE, ">", "/tmp/log.txt"; LOGFILE->autoflush(1); select LOGFILE; print "fileconsole!\n"; print "pause\n"; my $in = <STDIN>; select STDOUT; print "console1\n"; die; sub interrupt { print "Caught a control c!\n"; die; } END { if(fileno(LOGFILE)){ print "close logfile\n"; close(LOGFILE) or warn; } }
      
      Test & Ergebnis:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
      
      ### ORIGINAL $ perl /tmp/t3.pl fileconsole! pause ^CDied at /tmp/t3.pl line 20. 141 $ ### ERSETZUNG DURCH EINE LOGDATEI (siehe Code oben) $ perl /tmp/t3.pl ; cat /tmp/log.txt ^CDied at /tmp/t3.pl line 21. fileconsole! pause Caught a control c! close logfile 0 $
      
      Beachte auch die unterschiedlichen Exit-codes (mit Pipe 141, mit Ausgabeumleitung in Datei 0).
      
      Den genauen Grund kann ich derzeit nicht benennen.
      
      EDIT: Möglicherweise findet sich etwas in http://perldoc.perl.org/perlipc.html
      EDIT2: Nach Hinweisen aus dem großen Datenorakel (das mit den 2 G's und O's) deutet der Exitcode 141 auf das Signal SIGPIPE hin. Du solltest also in dieser Richtung forschen.
      Last edited: 2014-08-04 22:20:50 +0200 (CEST)
      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
      - PROXEN
        
        2014-08-04 22:41
        
        User since
        2013-07-23
        21 Artikel
        BenutzerIn
        
        Hallo,
        
        diesen Ansatz den du im ersten Post beschreibst verwende ich aktuell, allerdings gefällt er mir nicht so gut, da ich statt dem print immer diese Funktion verwenden muss. Das open mit dem tee verwende ich um ins File zu loggen und auch gleichzeitig an der Console auszugeben. Dieser Ansatz ist halt fein da ich einfach print verwenden kann und keine extra Funktion brauche. Mit dem select kann ich bestimmen wohin es geht, prints mit PWs sollen nur an der Console ausgegeben werden.
        
        Aber mal schauen vielleicht findet sich noch was für das END Problem.
        
        thx proxen
        
        pq
        
        2014-08-04 23:37
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        das tolle ist, wenn du eine funktion statt print verwendest, kannst du jederzeit ändern, wie geloggt wird, und musst das nur an einer stelle tun.
        z.b. auch timestamps zur logmeldung hinzufügen etc.
        
        wenn du überall print benutzt, kannst du nichts ändern ausser den output-filehandle, und das auch nur global.
        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
        
        Muffi
        
        2014-08-05 08:35
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ich würd auch zu einer Funktion raten.
        Bei mir gings schon damit los, dass ich mich, wenn ich so ein Skript von jemandem übernehmen würde, furchtbar ärgern würd, wenn ich schnell zum Debuggen ein print einbau und da kommt nix.
        Also print (ohne explizites Filehandle) wo anders hin als STDOUT ist für mich Gegnerverwirrung und braucht nen sehr guten Grund. Und mir fiele grad auf Anhieb keiner ein.
        Last edited: 2014-08-05 08:39:32 +0200 (CEST)
        1 + 1 = 10
- GwenDragon
  
  2014-08-05 10:15
  
  User since
  2005-01-17
  14761 Artikel
  Admin1
  
  Vermutung:
  tee wird als geforkter Prozess erzeugt. Mit dem Abbruch durch Ctrl C erzeugst du eine broken pipe.
  Ich kann mir vorstellen, das sich Elter und Kind STDOUT vor der Nase wegziehen.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2014-08-04 20:23.