Fehlerbehandlung (Allgemeines zu Perl)

[thread]17515[/thread]

Fehlerbehandlung

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+14 replies
Gast Schland-Meister

2012-06-25 14:17
Ich tut mich schwer diesen Fehler zu behandeln:
Code (perl): (dl )

1 2 3 4 5

#!/usr/bin/perl use diagnostics; use URI; my $uri = URI->new("-invalid-input-harhar-")->canonical; my $host = $uri->host;
Fehlermeldung:
Code: (dl )

1 2 3 4 5 6 7 8 9

Can't locate object method "host" via package "URI::_generic" at /tmp/foo.pl line 5 (#1) (F) You called a method correctly, and it correctly indicated a package functioning as a class, but that package doesn't define that particular method, nor does any of its base classes. See perlobj. Uncaught exception from user code: Can't locate object method "host" via package "URI::_generic" at /tmp/foo.pl line 5. at /tmp/foo.pl line 5
Wie müsste dieser Fehlerfall abgefangen werden. Gibt es ein "perlerrtut" im Netz?

-
Schland-Meister
Last edited: 2012-06-25 14:26:13 +0200 (CEST)
- +4 replies
- GwenDragon
  
  2012-06-25 14:32
  User since
  2005-01-17
  14770 Artikel
  Admin1
  Benutze eval. ;)
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  #!/usr/bin/perl use strict; use diagnostics; use URI; my $failed = 0; eval ' my $uri = URI->new("-invalid-input-harhar-")->canonical; my $host = $uri->host; '; $failed = 1 if $@; print $failed;
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - renee
    
    2012-06-25 15:50
    
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Warum String-eval?
    
    Ein Block-eval ist hier wohl die bessere Wahl... ist schneller und es ist ja normaler Code (kein dynamisch zusammengebauter).
    OTRS-Erweiterungen (http://feature-addons.de/)
    Frankfurt Perlmongers (http://frankfurt.pm/)
    --
    
    Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
    Perl-Entwicklung: http://perl-services.de/
  - +2 replies
  - Gast Schland-Meister
    
    2012-06-26 13:52
    
    Vielen Dank euch beiden. Die Antworten haben mir weitergeholfen.
    
    Ich brauch zwar keinen catch block um try-catch mal als Analogie zu nehmen. Aber sollte ich mal einen Brauchen muss ich dann if-Bedinungen und $@ arbeiten?
    Last edited: 2012-06-26 13:54:30 +0200 (CEST)
    - renee
      
      2012-06-26 15:57
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Genau, wobei es so gemacht werden sollte, dass $@ direkt nach dem eval abgefragt wird.
      
      Also :
      
      Code: (dl )
      
      1 2 3 4 5 6 7
      
      eval{ ... code ... }; if ( $@ ) { print "Fehler!"; }
      
      und nicht
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9
      
      eval { ... code ... }; ... code ... if ( $@ ) { print "Fehler!"; }
      
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
- +6 replies
- Gast Muffi
  
  2012-06-26 14:10
  Da jedes Objekt in Perl von UNIVERSAL erbt sollte eigentlich sowas funktionieren:
  
  Code (perl): (dl )
  
  print $uri->host if $uri->can('host');
  
  Last edited: 2012-06-26 14:14:39 +0200 (CEST)
  - +4 replies
  - GwenDragon
    
    2012-06-26 14:25
    
    User since
    2005-01-17
    14770 Artikel
    Admin1
    
    Das löst nur den logischen Programmierfehler, ob die Methode existent ist, aber nicht wenn überhaupt ein Problem im Modul auftritt.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +3 replies
    - Gast Muffi
      
      2012-06-26 14:34
      
      Nein. Aber ob ein Objekt eine Methode hat oder ob ein Laufzeitfehler auftritt sind ja auch 2 unterschiedlich zu handelnde Sachen.
      Last edited: 2012-06-26 14:39:03 +0200 (CEST)
      - +2 replies
      - GwenDragon
        
        2012-06-26 14:39
        
        User since
        2005-01-17
        14770 Artikel
        Admin1
        
        Und was der Fragende mit der Fehlerbehandlung wollte, ist klar erkennbar? Für mich nicht.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        Gast Muffi
        
        2012-06-26 14:52
        
        Ich würd hier garkeine Fehlerbehandlung wollen, weil der Fall oben kein Fehler ist, sondern falsche Benutzung eines Objekts. Und wenn ich das richtig benutze muss ich nicht warten bis es im eval bumms macht.
        Last edited: 2012-06-26 15:01:19 +0200 (CEST)
  - Gast Schland-Meister
    
    2012-06-26 19:15
    Diese Lösung Funktioniert und könnte auch die Richtig sein - aber dann ist das Konzept dahinter nicht konsequent eingehalten. Denn folgender Code ist nicht für diesen Fehler anfällig. Müsste es aber doch sein!?
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    #!/usr/bin/perl use diagnostics; use URI; my $uri = URI->new("-invalid-input-harhar-")->canonical; my $host = $uri->path_query;
    
    GwenDragon: Ich Frage eigentlich ganz allg. nach Möglichkeiten, wie man obigen Fehler behandeln kann.
    Zwei haben wie ja schon :-)
    Last edited: 2012-06-26 19:30:10 +0200 (CEST)
- +3 replies
- rosti
  
  2012-06-26 21:25
  User since
  2011-03-19
  3498 Artikel
  BenutzerIn
  diagnostics übertreibt hier ein bischen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  use strict; use warnings; use diagnostics; my $m = bless{}, 'main'; # Exception fangen eval{ $m->foo; }; if($@){ print $@ } # Uncaught exception from user code: ... # haha, von wegen uncaught!!! # ohne diagnostics: Can't locate object method "foo" via package "main" # das klingt schon viel besser ;)
  
  Edit: Version 5.6.1
  Last edited: 2012-06-27 05:57:44 +0200 (CEST)
  - Linuxer
    
    2012-06-26 21:51
    
    User since
    2006-01-27
    3891 Artikel
    HausmeisterIn
    
    Ist aber versionsabhängig. Bei meinem Linux mit Perl v5.16.0 mit diagnostics 1.28 findet keine Übertreibung statt.
    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!
  - pq
    
    2012-06-26 23:57
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    mit welcher version?
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    use strict; use warnings; use diagnostics; my $m = bless{}, "main"; eval{ $m->foo }; if ($@) { say "perl $]: $@" }
    
    ich bekomme:
    
    Code: (dl )
    
    1 2 3 4
    
    perl 5.010001: Can't locate object method "foo" via package "main" at -e line 6. perl 5.012004: Can't locate object method "foo" via package "main" at -e line 6. perl 5.014002: Can't locate object method "foo" via package "main" at -e line 6. perl 5.016000: Can't locate object method "foo" via package "main" at -e line 6.
    
    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

View all threads created 2012-06-25 14:17.