croak und Unterdrückung des caller mit "\n" (solved) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2025-04-19 00:38:31
Europe/Berlin
Login (Register)
- Preferences
- Statistics
Jemand zu Hause?
0 users online
3 guests

[thread]17087[/thread]

submit to reddit

croak und Unterdrückung des caller mit "\n" [solved]

[solved]

Tags: perl5 Similar Threads

Readers: 23

Articles: hide open all | hide show old branches

+12 replies
rosti

2012-01-22 21:41
User since
2011-03-19
3566 articles
BenutzerIn
hi,

gestern habe ich ein Modul für meine Website geschrieben, mit Fehlermeldungen, welche sehr differenziert auf die Anwendung zugeschnitten sind, z.B.
Code (perl): (dl )

1 2 3

croak "Gregorianisches Datum ungültig, das Jahr ist kein Schaltjahr\n"; # oder croak "Eingegebens Datum ungültig, das Jahr wurde nicht angegeben\n";
Das sind also Meldungen, die der Benutzer im Browser zu sehen bekommt, mit "\n" wird dazu ein
Code (perl): (dl )

... at Response.pm line 54
unterdrückt, womit ich den Inhalt von $@ direkt im Browser ausgeben kann (ist ja nur für den Benutzer, der interessiert sich nicht für den Trailer/caller, siehe oben).

Diese Unterdrückung funktioniert auf meiner Testumgebung einwandfrei, nach dem Hochladen zum Provider musste ich jedoch heute feststellen, dass der caller, also das '... at Response.pm' dennoch gezeigt wird.

Woran kann das liegen? Die Differenzierung der Fehlermeldungen ist nur im Modul selbst möglich, das möchte ich nutzen, ohne dass der Besucher den Hinweis auf den caller sieht, gibt es evntl. eine weitere/andere Möglichkeit außer "\n", dies abzustellen?

Danke für Hinweise,
Rosti
http://blog.rolfrost.de/

The art of steam.
- +3 replies
- pq
  
  2012-01-22 22:25
  User since
  2003-08-04
  12209 articles
  Admin1
  Ich würde das bei webapps mit Exception-Objekten lösen.
  
  Mein battie-Framework bietet eine Methode exception, der man eine "Klasse" und einen Text mitgeben kann. Mit der Klasse kann man dann z.b. verschiedene Arten von Fehlern klassifizieren und unterschiedlich darstellen.
  
  Code (perl): (dl )
  
  $framework->exception("Input", "Fehlermeldung...");
  
  Die run-Methode meines Frameworks macht im Prinzip folgendes:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
  
  sub run { # gewünschtes modul und funktion ermitteln # request erstellen eval { # modul/funktion aufrufen }; if ($@) { # abfragen, ob es ein Exception-Objekt vom Framework ist # dementsprechend die Ausgabe generieren # falls kein bekanntes Exception-Objekt, generische Fehlermeldung # anzeigen und Fehler im errorlog ausgeben } } sub exception { my ($self, $class, $text) = @_; croak WWW::Battie::Exception->new({ class => $class, text => $text, }); }
  
  desweiteren bietet es auch eine not_found_exception() Methode, der man noch Vorschläge für den User mitgeben kann ("nicht gefunden, vielleicht meintest du ... oder ...").
  
  Auf diese Weise hat man volle Kontrolle, was dem User angezeigt wird.
  
  Bei fehlerhaften Eingaben in einem Formular verwende ich i.d.R. gar keine Exceptions, sondern setze im Template-Stash einen error-Key. So wird das Formular einfach nochmal angezeigt, und im Template kann ich entscheiden, ob der error-Key gesetzt ist und entsprechend einen Hinweis über dem Formular anzeigen.
  etwa
  
  Code: (dl )
  
  1 2 3 4 5
  
  [%if error.message_too_long %]<div class="error"> [%translate id=error_message_too_long %] </div> [%elsif error.... %]... [%/if %]
  
  An der Stelle kann ich, wie man sieht, auch einfach übersetzte Fehlermeldungen anzeigen.
  
  Editiert von pq: sub Exception hinzugefügt
  Last edited: 2012-01-22 22:40:03 +0100 (CET)
  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
  - +2 replies
  - rosti
    
    2012-01-22 23:51
    
    User since
    2011-03-19
    3566 articles
    BenutzerIn
    
    Tja, in meinem Framework könnte ich das auch anders lösen. Aber das ist nicht die Frage ;)
    
    Warum wird der caller nicht unterdrückt, obwohl ich im croak ein "\n" angebe?
    
    Viele Grüße,
    Rosti
    http://blog.rolfrost.de/
    
    The art of steam.
    - pq
      
      2012-01-23 00:03
      
      User since
      2003-08-04
      12209 articles
      Admin1
      
      weiss ich nicht. dazu braucht man code und informationen über die umgebung, perl-version, wie wird der code aufgerufen, ...
      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
- pq
  
  2012-01-23 01:44
  User since
  2003-08-04
  12209 articles
  Admin1
  Code: (dl )
  
  1 2 3 4 5
  
  $ perl -MCarp -wE'croak "test"' test at -e line 1 $ perl -MCarp -wE'croak "test\n"' test at -e line 1
  
  This is perl 5, version 12, subversion 1 (v5.12.1) built for i686-linux
  This is perl, v5.10.1 (*) built for i486-linux-gnu-thread-multi
  
  bei welcher umgebung bekommst du keine info über ort der fehlermeldung?
  
  edit: und dass du einfach die() nehmen könntest, willst du vermutlich auch nicht hören?
  Last edited: 2012-01-23 10:00:43 +0100 (CET)
  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
- +2 replies
- moritz
  
  2012-01-23 10:58
  
  User since
  2007-05-11
  923 articles
  HausmeisterIn
  
  2012-01-22T20:41:23 rosti
  Diese Unterdrückung funktioniert auf meiner Testumgebung einwandfrei, nach dem Hochladen zum Provider musste ich jedoch heute feststellen, dass der caller, also das '... at Response.pm' dennoch gezeigt wird.
  
  Woran kann das liegen?
  
  An unterschiedlichen Versionen von Carp, wuerde ich sagen
  
  Quote
  gibt es evntl. eine weitere/andere Möglichkeit außer "\n", dies abzustellen?
  
  Nimm doch einfach die + \n, da weisst du, dass es funktioniert. Und wenn keine caller location angezeigt werden sollen, dann machen die und carp sowieso das gleiche.
  Perl 6 - Perls Zukunft
  - rosti
    
    2012-01-23 18:48
    User since
    2011-03-19
    3566 articles
    BenutzerIn
    
    Danke an Alle!!
    (auch wenn meine Antwort hier steht)
    
    Das Thema habe ich heute auch bei den Perlmonks gefunden. Die Philosophie ist diese hier:
    
    Willst Du einen Backtrace, nimm Carp.
    
    Also: Was will ich? _keinen_ Backtrace, sondern nur die Fehlermeldung. Ergo: Es reicht ein
    
    Code (perl): (dl )
    
    die "Fehlermeldung\n";
    
    und hier wird der Trace auch unterdrückt.
    
    Beispiel: http://rolfrost.de/map/kalender/gregorian.html
    
    @Gwen: Auf meiner Testumgebung ist ein uralt-Perl (Asche über mich).
    
    Ansonsten ist das Exception-Modell von Perl auch einer der Vorzüge gegenüber anderen Programmiersprachen. Beispiel an meinem Modul:
    
    Der Konstruktor erwartet einen vom drei Parametern, "jd", "gregdate" oder "julidate". Wurde kein Parameter mitgegeben, setzt das Modul an "gregdate" das aktuelle Datum. Das ist die Initialisierung, im Konstruktor gehts dann weiter mit der Validierung:
    
    Code (perl): (dl )
    
    1 2 3
    
    $self->_initialize; # einer der drei Werte ist gesetzt eval{ $self->_validate }; return $@ ? undef : $self;
    
    Die Einfachheit besteht nun darin, innerhalb _validate() oder nachgelagerten privaten Methoden (weitere Berechnungen) eine Exception zu erzeugen, wenn irgendwas nicht stimmt. Der Fehlertext steht dann in $EVAL_ERROR ($@), wenn das Objekt nicht erstellt werden konnte (Anwendung prüft). Einfacher gehts nicht ;)
    
    Schöne Grüße,
    Rolf
    http://blog.rolfrost.de/
    
    The art of steam.
- +2 replies
- GwenDragon
  
  2012-01-23 11:33
  
  User since
  2005-01-17
  14835 articles
  Admin1
  
  Den Backtrace (caller) kannst du nicht unterdrücken, weil in Carp bei croak immer der Backtrace an den Parameter von croak angehängt wird.
  Schau mal in den Source ;)
  croak ist eben nicht die oder warn.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - pq
    
    2012-01-23 11:36
    
    User since
    2003-08-04
    12209 articles
    Admin1
    
    er schreibt ja, dass er es kann: "Diese Unterdrückung funktioniert auf meiner Testumgebung einwandfrei"
    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
- hlubenow
  
  2012-01-23 15:41
  User since
  2009-02-22
  877 articles
  BenutzerIn
  Seltsam, auf meinem System gibt es
  
  Code: (dl )
  
  1 2 3
  
  /usr/lib/perl5/5.8.7/Carp.pm /usr/lib/perl5/5.8.7/CGI/Carp.pm /usr/lib/perl5/5.8.7/Carp/Heavy.pm
  
  "perldoc /usr/lib/perl5/5.8.7/CGI/Carp.pm" hat ein Kapitel "REDIRECTING ERROR MESSAGES". Vielleicht ist da eine Anleitung.
  
  Ansonsten kann ich auch "die" nicht dazu bringen, die "at line ..."-Nachricht zu unterdrücken.
  Mit
  
  Code (perl): (dl )
  
  open STDERR, '>/dev/null';
  
  erhalte ich gar keine Meldungen mehr (logisch),
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  #!/usr/bin/perl use warnings; use strict; $SIG{__DIE__} = sub { print "Hallo\n"; }; die;
  
  gibt bei dem "die" zwar mein "Hallo" aus, aber danach wieder die Zeile mit der "at line ..."-Nachricht.
  
  Wenn ich den Fehler selbst auslöse, würde ich wahrscheinlich wie von pq vorgeschlagen dafür einen eigenen Handler (oder - kleiner - eine eigene Funktion) bauen.
  
  Gruß
  - +2 replies
  - hlubenow
    
    2012-01-23 20:59
    User since
    2009-02-22
    877 articles
    BenutzerIn
    
    rosti
    
    Code (perl): (dl )
    
    die "Fehlermeldung\n";
    
    Komisch, irgendwie ging das bei mir gestern nicht. Heute schon.
    Bin sicher, daß da gestern dieses "at line ..." in der zweiten Zeile kam, ähnlich wie in dem zweiten Beispiel von pq:
    
    pq
    
    Code (perl): (dl )
    
    1 2 3
    
    perl -MCarp -wE'croak "test\n"' test at -e line 1
    
    Heute wie gesagt ohne die letzte Zeile. Gut, daß es dafür also doch eine Option bei "die" gibt.
    - rosti
      
      2012-01-23 21:13
      
      User since
      2011-03-19
      3566 articles
      BenutzerIn
      
      hi danke!
      
      Ja, das Carp-Modul, was ich hier habe ist uralt. Was ich von meinem Provider weiß, ist, dass er Perl v5.8.8 hat, das ist alles ;)
      
      Ich werde jedoch auf meiner privaten Kiste an v5.6.1 festhalten, mittlerweile kenne ich einige Unterschiede zu neueren Versionen bis hin zu 5.10 und es gibt deswegen noch lange keinen Grund, hier ein neues Perl aufzuspielen (never touch a running system *G).
      
      Btw., das Thema habe ich soeben auf meiner WebSeite
      
      http://rolfrost.de/map/article/whyperl.html
      
      verwurstet, Du findest im vorerst vorletzten Abschnitt auch ein Beispiel für eine sinnvolle Verwendung des Hashes %SIG
      
      viele Grüße,
      Rolf
      
      (ab heute wieder arbeitslos)
      http://blog.rolfrost.de/
      
      The art of steam.

View all threads created 2012-01-22 21:41.