Exception Handling (Raku / Perl 6)

[thread]13527[/thread]

Exception Handling

Leser: 21

Articles: hide open all | hide show old branches

+5 replies
sid burn

2009-05-17 02:59
User since
2006-03-29
1520 Artikel
BenutzerIn
Hi,
wie bekomme ich genaue Infos darüber welche Fehler geworfen worden sind? Folgendes kleiner Programmschnipsel.
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13

#!/usr/bin/env perl6 try { my $fh = open('asdf'); while ( my $line = $fh.get ) { say $line; } $fh.close; CATCH { say 'Fehler'; } }
Funktioniert auch soweit, wenn die Datei existiert würde es die Datei ausgeben, wenn nicht gibt es einfach nur "Fehler" aus. Lasse ich try{} und CATCH{} weg wird sofort ein Fehler geworfen.

Aber wie kann ich nun im CATCH Block herausfinden welcher Fehler genau aufgetreten ist? Wird da irgendein Objekt übergeben?
Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
- +4 replies
- Gast MatthiasW
  
  2009-05-17 11:27
  Synopsis 4 zufolge wird ein Exception Objekt in $! abgelegt. Im CATCH-Block sollte dieses auch in $_ stehen. Auf verschiedene Exceptions kannst du dann vermutlich am einfachsten mittels when ... { ... } reagieren(nicht getestet):
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  try { my $fh = open('asdf'); while ( my $line = $fh.get ) { say $line; } $fh.close; CATCH { when /teil der fehlermeldung/ { ... } default { #[unerwarteter Fehler?] } } }
  
  MfG
  - +3 replies
  - sid burn
    
    2009-05-17 14:29
    
    User since
    2006-03-29
    1520 Artikel
    BenutzerIn
    
    Okay $! wird übergeben. Mit einem "$!.WHAT.say" bekomme ich heraus das wenn ein open Fehlschlägt es anscheind ein "Exception" Objekt ist. Aber welche Methoden hat es?
    
    Also so nen Murks wie bei Perl 5 und ein simpler String wo seine Daten drin stehen wird es ja wohl hoffentlich nicht mehr sein, sondern vernünftige Exception Objekte?
    
    Aber anscheind wurde über Exceptions bisher noch gar nicht drüber nachgedacht?
    
    http://perlcabal.org/syn/S32/Exception.html
    
    Dies ist jedenfalls ziemlich leer, die Tests dazu in S04-exceptions klären auch so gut wie nichts auf.
    
    EDIT:
    Nebenbei frage ich mich warum der CATCH Block eigentlich im try {} Block steht. Wäre es nicht logischer wenn der CATCH Block erst danach kommen würde? Mit try{} führt man ja Code aus und wenn es irgendwo ein Fehler gibt bricht der Block ab, und mit einem catch{} danach würde man fehler abfangen. Das der CATCH innerhlab des try{} steht kommt mir irgendwie komisch vor.
    
    Und nebenbei, warum ist "try" komplett klein geschrieben und CATCH komplett groß geschrieben? Ist das nicht etwas inkonsistent?
    Last edited: 2009-05-17 15:23:09 +0200 (CEST)
    Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
    - +2 replies
    - Gast MatthiasW
      
      2009-05-18 15:48
      
      Hm.. So wie ich das verstanden habe, braucht man den try-Block nicht um mit Exceptions zu arbeiten. Ein try-Block besitzt nur automatisch einen CATCH-Block der alle auftretenden Exceptions ignoriert. Man kann einen CATCH-Block aber in alle Blöcke hineinsetzen um dort Exceptions abzufangen.
      
      Und wie ich gerade hier gesehen habe gibt es noch ein paar mehr Sonderblöcke, die, einem anderen Block beigefügt, diesem besondere Eigenschaften verleihen. Diese sind dann auch alle groß geschrieben, von daher sehe ich keine Inkonsistenz.
      
      Wie man nun genau mit einem Exception Objekt arbeitet weiß ich leider auch nicht. Vielleicht kannst du ja per .perl mehr herausfinden.
      
      Nebenbei: Womit testest du eigentlich gerade Perl6? Mit Rakudo? Auf Linux oder auf Windows? Ich hatte bei meinem letzten Versuch nämlich arge Schwierigkeiten Parrot und Rakudo bei mir zum Laufen zu kriegen(Windows XP, MinGW & MSys). Habe es aber auch seit geraumer Zeit nicht mehr versucht...
      
      MfG
      - sid burn
        
        2009-05-18 16:00
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Guest MatthiasW
        Hm.. So wie ich das verstanden habe, braucht man den try-Block nicht um mit Exceptions zu arbeiten. Ein try-Block besitzt nur automatisch einen CATCH-Block der alle auftretenden Exceptions ignoriert. Man kann einen CATCH-Block aber in alle Blöcke hineinsetzen um dort Exceptions abzufangen.
        
        Das wenn man kein CATCH{} Block hinschreibt er dann alle Exceptions ignoriert würde ich mal als Selbstverständlich ansehen.
        
        Quote
        Und wie ich gerade hier gesehen habe gibt es noch ein paar mehr Sonderblöcke, die, einem anderen Block beigefügt, diesem besondere Eigenschaften verleihen. Diese sind dann auch alle groß geschrieben, von daher sehe ich keine Inkonsistenz.
        
        Mit diesem Bezug sieht es nicht so inkonsistent aus, dass stimmt. Wenn ich aber nur die try/CATCH Mechanik anschaue dann sieht es für mich schon inkonsistent aus.
        
        Quote
        Wie man nun genau mit einem Exception Objekt arbeitet weiß ich leider auch nicht. Vielleicht kannst du ja per .perl mehr herausfinden.
        
        Schon probiert, dann kommt leider nur "undef" zurück. Zwar gibt es Introspektion, aber die ist in Rakudo noch nicht eingebaut. Ein "$!.^methods" oder "$!.HOW.methods()" endet dann bei mir in einem Memory Leak. Jedenfalls passiert nichts mehr und der Speicherverbrauch wächst solange an bis ich rakudo beende.
        
        Quote
        Nebenbei: Womit testest du eigentlich gerade Perl6? Mit Rakudo? Auf Linux oder auf Windows?
        
        Ja Rakudo auf Debian GNU/Linux.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de

View all threads created 2009-05-17 02:59.