threads - croak (Allgemeines zu Perl)

[thread]13808[/thread]

threads - croak

Leser: 23

Articles: hide open all | hide show old branches

+14 replies
Cappu

2009-07-31 19:45
User since
2009-07-23
25 Artikel
BenutzerIn
meine threads sub ruft selbst eine weitere sub auf in der ich mittels croak ein fehler melden möchte, welche ich nicht in dem threads sub mit eval anscheinend abfangen kann. der thread wird sofort abgebrochen?

kennt jemand den grund?
Code: (dl )

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

sub worker_sub { print "worker_sub\n"; croak "testerror"; } sub worker { eval ( worker_sub() ); if ($@) { print "ERROR\n"; } sleep 2; } my $mythread = threads->create( \&worker );
Last edited: 2009-07-31 20:10:58 +0200 (CEST)
- +2 replies
- murphy
  
  2009-07-31 21:20
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  Der Grund ist, dass Du worker_sub nicht innerhalb eines eval-Blockes aufrufst:
  
  - Du schreibst:
  
  Code (perl): (dl )
  
  eval ( worker_sub() );
  
  Das bedeutet "rufe worker_sub auf, interpretiere den Rückgabewert als String und evaluiere diesen String als Perlcode, wobei Fehler abgefangen werden".
  
  - Du willst aber vermutlich eigentlich schreiben:
  
  Code (perl): (dl )
  
  eval { worker_sub() };
  
  Das bedeutet "rufe worker_sub auf, wobei Fehler abgefangen werden".
  When C++ is your hammer, every problem looks like your thumb.
  - Cappu
    
    2009-07-31 21:31
    
    User since
    2009-07-23
    25 Artikel
    BenutzerIn
    
    oh man - total dumm!! danke!!
- +11 replies
- Cappu
  
  2009-07-31 21:44
  User since
  2009-07-23
  25 Artikel
  BenutzerIn
  weis jemand zufällig wie ich die Error Message unterdrücke ?
  
  beispiel code:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  sub worker_sub { croak "testerror"; } sub worker { eval { worker_sub() }; if ($@) { croak $@; } sleep 2; } my $mythread = threads->create( \&worker ); ...
  
  sobald croak im worker auslöst, wird ein fehler am terminal ausgegeben...
  - +10 replies
  - nepos
    
    2009-08-01 10:02
    User since
    2005-08-17
    1420 Artikel
    BenutzerIn
    
    Wofür schreibst du dann
    
    Code (perl): (dl )
    
    croak $@;
    
    , wenn du keine Fehlermeldung ausgeben willst? Was willst du denn statt dessen machen?
    - +9 replies
    - Cappu
      
      2009-08-01 14:07
      
      User since
      2009-07-23
      25 Artikel
      BenutzerIn
      
      ich möchte später mittels join (was auch funktioniert), den fehler abfangen und selbst auswerten. d.h. croak soll kein fehler selbst am terminal ausgeben...
      - +8 replies
      - murphy
        
        2009-08-01 14:30
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Gib doch einfach den Fehler als Resultat des Threads zurück:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
        
        #!/usr/bin/env perl use strict; use warnings; use threads; sub worker_sub { die "Ups!\n"; } my $worker = async { eval { worker_sub }; $@ }; my $error = $worker->join(); if ($error) { print "The worker thread produced an error: $error"; } else { print "The worker thread completed successfully\n"; }
        
        When C++ is your hammer, every problem looks like your thumb.
        
        +5 replies
        
        Cappu
        
        2009-08-02 13:49
        
        User since
        2009-07-23
        25 Artikel
        BenutzerIn
        
        die oder croak haben die gleiche auswirkung, am terminal folgt sofort eine meldung:
        Thread 1 terminated abnormally...
        
        genau das möchte ich nicht
        
        +4 replies
        
        murphy
        
        2009-08-02 15:21
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Selbstverständlich haben die und croak die gleiche Wirkung. Es macht aber einen Unterschied, ob man wie Du die nach dem eval-Block aufruft, oder wie ich im eval-Block.
        
        Auf meiner Maschine (ix86 Linux, Perl 5.10.0) führt der Code, den ich gepostet habe, jedenfalls keineswegs dazu, dass irgendein Thread abnormal beendet wird.
        When C++ is your hammer, every problem looks like your thumb.
        
        +3 replies
        
        Cappu
        
        2009-08-02 17:51
        
        User since
        2009-07-23
        25 Artikel
        BenutzerIn
        
        ok verstanden - ich habe immer mittels
        eval(threads->create(...))
        versucht die meldung abzufangen....
        
        da du das eval in den thread selber verlegst, scheint es zu funktionieren...
        
        danke!!
        
        +2 replies
        
        MatthiasW
        
        2009-08-02 18:23
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        Außerdem machen eval(...) und eval { ... } unterschiedliche Dinge. Ersters ist ein String-eval. Es wird also der String, der an eval() übergeben wird ausgeführt. Letzteres ist ein Block-eval. Es wird also der Block ausgeführt.
        Ein Block-eval ist mit einem try-Block aus anderen Sprachen vergleichbar.
        
        Wenn du etwas wie eval(threads->create(...)) schreibst, dann wird zuerst threads->create(...) ausgeführt und der Rückgabewert an eval() übergeben. Das ist imho nicht was du eigentlich wolltest.
        
        MfG
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
        
        Cappu
        
        2009-08-02 18:55
        
        User since
        2009-07-23
        25 Artikel
        BenutzerIn
        
        danke für die erklärung!
        
        Cappu
        
        2009-08-02 19:04
        
        User since
        2009-07-23
        25 Artikel
        BenutzerIn
        
        ein nachteil habe ich gerade gefunden bei deiner lösung: ich kann nicht mehr bei dem thread rückgabewert unterscheiden ob es ein fehler war oder der rückgabewert der funktion!?
        
        Cappu
        
        2009-08-02 19:11
        
        User since
        2009-07-23
        25 Artikel
        BenutzerIn
        
        ich habe die antwort gefunden:
        
        Code: (dl )
        
        no warnings 'threads';
        
        damit kann ich die threads->create methode nutzen und auf fehler prüfen:
        
        Code: (dl )
        
        $thr->error()
        
        nach einen join...
        
        dann kann ich sowohl den return wert nutzen und feststellen ob ein fehler vorhanden ist - genau so wollt ich es...
        
        danke nochmals für eure hilfe....

View all threads created 2009-07-31 19:45.