Exceptions (Allgemeines zu Perl) - Perl-Community.de

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

2024-11-24 22:37:19
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
2 Gäste

[thread]14840[/thread]

submit to reddit

Exceptions

Leser: 29

Articles: hide open all | hide show old branches

+19 replies
roooot

2010-03-21 13:46

User since
2008-03-03
276 Artikel
BenutzerIn

Hi Leute

ich will weg vom einfachen "Tod" hin zu Exceptions.
Dazu schaue ich mir gerade verschiedene Module an, die CPAN so im Angebot hat. Dabei bin ich - logischerweise - auf Error gestoßen, das mir schon ziemlich gut gefällt. Allerdings gibt es da das Problem, dass es nicht mit Moose kompatibel ist, welches ich verwende. Der Grund liegt darin, dass beide einen Befehl mit dem selben Namen exportieren: with.
Da man allerdings die Basisbefehle von Perl mittels Fatal dazu bringen kann Exceptions für Error zu werfen möchte ich nicht wirklich auf eine andere Exception Klasse wechseln, wie beispielsweise Exception::Class, da diese nicht die schönen Befehle wie try..catch..finally bieten, sondern umständlich über if-Bedingungen gelöst werden müssen.

Daher meine Frage an die Perl Community: Nutzt wer Moose mit Error? Oder gibt es für Moose eine bessere Exception Klasse die das definieren eigener Exceptions erlaubt und die try..catch..finally Syntax zulässt?
Danke für eure Ratschläge
Last edited: 2010-03-21 13:50:40 +0100 (CET)
Viele Grüße :)
- +8 replies
- betterworld
  
  2010-03-21 14:15
  
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  
  Exporter::Renaming?
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - +7 replies
  - roooot
    
    2010-03-21 17:54
    User since
    2008-03-03
    276 Artikel
    BenutzerIn
    
    Je länger ich suche, desto mehr Gründe finde ich, Error nicht zu benutzen (Memory Leak, Unvorhersebarkeit best. Abläufe, ..).
    
    Es muss doch etwas geben, das Exception Handling unter Perl verwirklicht und dabei nicht eval benutzt und die Exception Behandlung über ifs löst.
    
    Ich habe mir bisher Error, Exception::Class, Try::Tiny und TryCatch angeschaut.
    
    Exception::Class gefällt mir der Syntax nicht wirklich:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
    
    # try eval { MyException->throw( error => 'I feel funny.' ) }; my $e; # catch if ( $e = Exception::Class->caught('MyException') ) { warn $e->error, "\n", $e->trace->as_string, "\n"; warn join ' ', $e->euid, $e->egid, $e->uid, $e->gid, $e->pid, $e->time; exit; } elsif ( $e = Exception::Class->caught('ExceptionWithFields') ) { $e->quixotic ? do_something_wacky() : do_something_sane(); } else { $e = Exception::Class->caught(); ref $e ? $e->rethrow : die $e; }
    
    Man kann zwar Exception::Class::TryCatch benutzen, aber dann wird das ganze auch nicht besser.
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    eval { Exception::Class::Base->throw('error') }; if ( catch my $err ) { $err->isa('this') and do { handle_this($err) }; $err->isa('that') and do { handle_that($err) }; }
    
    Try::Tiny bietet nicht die Unterscheidung verschiedener Exceptions, sondern springt in den catch Block sobald der try stirbt.
    
    TryCatch reagiert auf den "die" Befehl. Ich habe allerdings nicht herausgefunden, wie man hier verschiedene "Exceptions" werfen kann. Sprich er springt in den catch Block und untersucht dann wohl iwie die Rückmeldung, die mit dem "die" übergeben wurde mittels "where". Naja.
    
    Was verwendet ihr? Was könnt ihr empfehlen?
    Viele Grüße :)
    - betterworld
      
      2010-03-21 18:25
      
      User since
      2003-08-21
      2614 Artikel
      ModeratorIn
      
      2010-03-21T16:54:49 roooot
      Je länger ich suche, desto mehr Gründe finde ich, Error nicht zu benutzen (Memory Leak, Unvorhersebarkeit best. Abläufe, ..).
      
      Daher steht ja auch ganz oben in der Dokumentation, dass man es nicht mehr benutzen soll :)
      Lieblingsmodule: IPC::System::Simple, Path::Class
    - +5 replies
    - MatthiasW
      
      2010-03-21 18:34
      
      User since
      2008-01-27
      367 Artikel
      BenutzerIn
      
      2010-03-21T16:54:49 roooot
      TryCatch reagiert auf den "die" Befehl. Ich habe allerdings nicht herausgefunden, wie man hier verschiedene "Exceptions" werfen kann. Sprich er springt in den catch Block und untersucht dann wohl iwie die Rückmeldung, die mit dem "die" übergeben wurde mittels "where". Naja.
      
      Also das die(...) wirft ja gerade die Exception und mittels catch (...) {...} kann man doch sehr gut darauf reagieren:
      
      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
      
      #!/usr/bin/perl use 5.010; use strict; use warnings; use TryCatch; try { Exception::Test->throw('Error!') if <STDIN> eq "test\n"; Exception->throw('Error!'); } # try catch (Exception::Test $e) { say "Exception::Test: ". $$e; } # catch catch ($e) { say "Other: ". $$e; } # catch package Exception; sub throw { my( $class, $error ) = @_; die bless \$error, $class; } # throw package Exception::Test; #edit: use parent -norequire, 'Exception';
      
      Ich benutze es zwar nicht, aber ich finde es sieht wirklich handlich aus!
      
      MfG
      Last edited: 2010-03-21 21:11:17 +0100 (CET)
      perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
      - +2 replies
      - Gast wer
        
        2010-03-21 20:00
        
        Code (perl): (dl )
        
        BEGIN { push @Exception::Test::ISA, qw( Exception ) }
        
        geht doch hübscher:
        
        Code (perl): (dl )
        
        use base 'Exception';
        
        da weiß ein unbedarfter Leser wenigstens was gemeint ist.
        Last edited: 2010-03-21 20:10:40 +0100 (CET)
        
        MatthiasW
        
        2010-03-21 21:11
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        Jo stimmt danke.
        Ist jetzt korrigiert :-)
        
        MfG
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
      - +2 replies
      - roooot
        
        2010-03-22 12:35
        
        User since
        2008-03-03
        276 Artikel
        BenutzerIn
        
        Sieht gut aus.
        die verhält sich also hier wie der throw bei beispielsweise anderen Exceptionimplementationen?
        
        Code (perl): (dl )
        
        1 2
        
        package Exception::Test; use parent -norequire, 'Exception';
        
        erweitert die Basis 'Exception' Klasse in die Exception::Test Klasse sodass dort alle Befehle aus Exception zu Verfügung stehen? Sehe ich das richtig?
        Viele Grüße :)
        
        MatthiasW
        
        2010-03-22 18:54
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        2010-03-22T11:35:42 roooot
        Sieht gut aus.
        die verhält sich also hier wie der throw bei beispielsweise anderen Exceptionimplementationen?
        
        Jop, wobei man hier ja auch ein throw() liest. eval { die } if ($@) { } hat seine Macken, ist aber im Prinzip Perls "Exceptionimplementation". Um die Macken zu umgehen benutzt man ein passendes Modul, aber die Möglichkeit Exceptions zu werfen und zu fangen bringt Perl schon mit.
        
        2010-03-22T11:35:42 roooot
        
        Code (perl): (dl )
        
        1 2
        
        package Exception::Test; use parent -norequire, 'Exception';
        
        erweitert die Basis 'Exception' Klasse in die Exception::Test Klasse sodass dort alle Befehle aus Exception zu Verfügung stehen? Sehe ich das richtig?
        
        Ja, Exception::Test erbt von Exception, sodass throw() auch bei ersterem zur Verfügung steht.
        
        MfG
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
- +2 replies
- Gast ҉
  
  2010-03-21 23:35
  Exception::Class ist gar nicht so schlecht, wie du jetzt denkst. Lass dich doch nicht von der Synopse irre machen. Durch bloßes Dokulesen kriegst du sowieso nicht das passende Exceptionsystem für dich heraus, du musst schon einen realen Fall mit den Kandidaten programmieren, um es richtig kennenzulernen. Das sieht dann z.B. so aus:
  
  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
  
  use Exception::Class ( 'My::Project::Exception::Queue' => {}, # abstrakt 'My::Project::Exception::Queue::Underrun' => { isa => 'My::Project::Exception::Queue', alias => 'throw_queue_underrun', }, 'My::Project::Exception::Queue::AllocationFail' => { isa => 'My::Project::Exception::Queue', fields => [qw(caused_by)], alias => 'throw_queue_allocationfail', }, ); throw_queue_underrun(sprintf( 'tried to deallocate %u, but only %u left', scalar(@q_remove), $self->queue->stat->count )); # das Beispiel hier drüber ist Murks und kann ein bisschen Nachbesserung # vertragen, so dass man die Zahlen nicht herausparsen muss, sondern als # Attribut am Fehlerobjekt verfügbar hat throw_queue_allocationfail message => 'Reserved memory exhausted', caused_by => 'rigging layer';
  
  Die meisten Fehlerklassen kommen bloß mit "alias" aus, und schon spart man sich die Schererei mit CORE::die bzw. den Funktionen aus Carp. Noch eine Sache: PBP schlägt im Beispielcode vor, sich den Namensraum X:: zu eigen zu machen, was ich für Schwachsinn halte. Es sollte immer im selben Namensraum wie die sein, meinetwegen mit "Exception" dazwischengequetscht.
  
  Zur Auswertung Try::Tiny dazuladen und gut is'. Das ganze (also E::C und T::T) ist Moosekompatibel; tatsächlich zieht Moose schon Try::Tiny als Abhängigkeit.
  Last edited: 2010-03-21 23:55:39 +0100 (CET)
  - roooot
    
    2010-03-22 12:38
    
    User since
    2008-03-03
    276 Artikel
    BenutzerIn
    
    Ich definiere hier eine Klasse, die alle Exceptions enthält und lasse die Exceptions mit verschiedenen subs verschiedene Dinge beim "Wurf" unternehmen? Kommt mir etwas unordentlich vor?
    Viele Grüße :)
- +2 replies
- betterworld
  
  2010-03-22 01:07
  
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  
  In Perl 5.12 kann man neue Keywords definieren. Dann kannst Du also auch ein Exceptions-Modul (ohne black magic) schreiben, dessen Syntax Dir passt :)
  
  (update: ach ja, und in Perl 6 ist das eh alles kein Problem)
  Last edited: 2010-03-22 01:09:07 +0100 (CET)
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - roooot
    
    2010-03-22 12:36
    
    User since
    2008-03-03
    276 Artikel
    BenutzerIn
    
    Bis mein Provider Perl 5.12 einsetzt, vergehen bestimmt noch 2-3 Jahre....
    Viele Grüße :)
- +6 replies
- bianca
  
  2010-03-22 13:29
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Hierzu hab ich mal eine Verständnisfrage.
  Dieses die sehe ich ja auch ständig in irgendwelchen Scripten. Selbst benutze ich das nie. Zwar frage ich immer die Fehler ab, verzweige dann aber individuell jeweils in Abschnitte, wo der Benutzer selbst entscheiden kann, was als nächstes passieren soll (wiederholen, später neu versuchen, usw.).
  
  Daher meine Verständnisfrage: Wofür braucht man im produktiven Umfeld dieses die und wofür braucht man solche eine separate Exceptions-Behandlung?
  Also für welche Partei (Coder, Nutzer, Hoster) ist das sinnvoll und wem erspart das genau was?
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - pq
    
    2010-03-22 13:43
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    Ausnahmebehandlung
    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
    - bianca
      
      2010-03-22 19:14
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2010-03-22T12:43:09 pq
      Ausnahmebehandlung
      
      Danke Dir, hab ich gelesen. Sehr einleuchtend.
      10 print "Hallo"
      20 goto 10
  - +3 replies
  - topeg
    
    2010-03-22 14:04
    
    User since
    2006-07-10
    2611 Artikel
    BenutzerIn
    
    "die" ist der schnellste Weg eine "saubere" Fehlerbehandlung zu machen.
    In einem Script wird bei einem "die" mit "\n" im Fehlertext wird nur der Text auf STDERR Ausgeben und das Programm mit einem Rückgabewert von 1 beendet. Ohne "\n" wird noch Ausgeben wo der Fehler passiert ist.
    
    Weiterhin kann man "die" in "eval"-Blöcken abfangen anders als "exit"
    
    Wenn du ein Modul/Programm schreibst und dieses Bei einem Fehler "kontrolliert" beenden willst und dies dem Aufrufer mitteilen möchtest musst du "die" benutzen.
    
    Für Scripte ist print STERR $message; exit(1); vergleichbar zu die($message)
    - pq
      
      2010-03-22 14:10
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      ausserdem sollte man sich auch mal Carp ansehen. das bietet bessere angaben zum ort, wo der fehler auftritt, und stacktrace.
      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
    - GwenDragon
      
      2010-03-22 14:13
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      2010-03-22T13:04:01 topeg
      Für Scripte ist print STERR $message; exit(1); vergleichbar zu die($message)
      So ganz stimmig ist das nicht. ;)
      Die Rückgabewerte sind nicht 1 bei einem die.
      Bei Linux ist $? 255 und bei Windows %ERRORLEVEL% 2.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2010-03-21 13:46.