Programm stopt nach Thread start (Allgemeines zu Perl)

[thread]18423[/thread]

Programm stopt nach Thread start

Tags: perl5 Threads Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+7 replies
Gast chris05133

2013-07-08 12:07
Hi. Ich habe ein kleines Problem beim arbeiten mit Threads.
Ich starte folgende zwei Threads:
Code (perl): (dl )

1 2

my $threadGetCurrentData = threads->new(\&getStockData::getCurrentStockData, $currentQueue)->detach(); my $threadProcessCurrentData = threads->new(\&windowCurrent())->detach();
und enkoppel sie auch gleich mit detach();

In beiden Threads läuft eine Endlosschleife, der eine holt Daten, der andere verarbeitet sie. Das funktiniert auch problemlos.
Allerdings werden alle Anweisungen im Hauptprogramm ignoriert die nach dem zweiten thread kommen. Wenn ich zwischen die beiden thread instanziierungen z. B. ein print einbaue, funktionierts. Aber nach dem zweiten nicht mehr.

Hat jemand einen Tipp woran es liegen könnte?
Das Hauptprogramm müsste doch regülär weiterlaufen oder?

Gruß und Danke im vorraus.

Christian
Last edited: 2013-07-08 12:46:14 +0200 (CEST)
- +6 replies
- thecoder2012
  
  2013-07-09 00:03
  
  User since
  2013-02-04
  64 Artikel
  BenutzerIn
  
  Guest chris05133
  Hat jemand einen Tipp woran es liegen könnte?
  
  Perlversion nennen, wie es ausgeführt wird (Konsole, Webserver etc.) und genutztes System sowie eventuelle Fehlermeldungen (oder ob es einfach hängt oder wirklich nur danach nichts ausführt => Debug/Profiler)
  
  Quote
  Das Hauptprogramm müsste doch regülär weiterlaufen oder?
  
  Bitte erstelle ein Testskript womit das Problem reproduzierbar wird.
  - +3 replies
  - Gast chris05133
    
    2013-07-09 10:17
    System: Linus Mint 14
    Entwickelt und ausgeführt wird es in eclipse.
    Perlversion: Perl 5, version 14, subversion 2
    Fehlermeldungen gibt es nicht.
    
    Testskript:
    
    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 28 29 30 31 32
    
    use Carp; use strict; use warnings; use threads; my $thread1= threads->new(\&test, "Erster Thread")->detach(); my $thread2 = threads->new(\&test2())->detach(); my $a = 0; for(;;) { sleep 1; print "Mainthread: " . $a++ . "\n"; } sub test { my $thread = @_; my $i = 0; for(;;) { sleep 1; print $thread . " " . $i++ . "\n"; } } sub test2 { my $i = 0; for (;;) { sleep 1; print "zweiter Thread: " . $i++ . "\n"; } }
    
    Gruß Christian
    Last edited: 2013-07-09 10:21:20 +0200 (CEST)
    - +2 replies
    - murphy
      
      2013-07-09 10:40
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      Klar dass das nicht funktioniert: Der zweite Thread wird nie erzeugt und nie gestartet, denn in Zeile 7 steht threads->new(\&test2()), also ein Aufruf von test2, dessen Rückgabewert referenziert und an threads::new übergeben werden soll, was aber nie passiert, denn test2 kehrt niemals zurück und so werden weder der zweite Aufruf von threads::new noch die Schleife im Hauptthread jemals erreicht. Stattdessen ist sicherlich threads->new(\&test2) gemeint, also die Übergabe einer Referenz auf die Subroutine test2 selbst.
      
      Abgesehen davon erscheint auch Zeile 18 fehlerhaft, denn gemeint ist vermutlich nicht my $thread = @_, also die Zuweisung der Anzahl von Argumenten an die Variable $thread, sondern my ($thread) = @_, also die Zuweisung des ersten Argumentes an die Variable $thread.
      
      So könnte man sich dann auch die Subroutine test2 komplett sparen und statt Zeile 6 und 7 einfach
      
      Code (perl): (dl )
      
      1 2
      
      my $thread1= threads->new(\&test, "Erster Thread")->detach(); my $thread2= threads->new(\&test, "Zweiter Thread")->detach();
      
      schreiben.
      When C++ is your hammer, every problem looks like your thumb.
      - Gast chris05133
        
        2013-07-09 11:27
        
        Ach okay. Vielen Dank für die Erklärung, das leuchtet ein. ;)
        
        Gruß Christian
        Last edited: 2013-07-09 11:58:32 +0200 (CEST)
  - +2 replies
  - Gast chris05133
    
    2013-07-09 10:23
    System: Linus Mint 14
    Entwickelt und ausgeführt wird es in eclipse.
    Perlversion: Perl 5, version 14, subversion 2
    Fehlermeldungen gibt es nicht.
    
    Testskript:
    
    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 28 29 30 31 32
    
    use Carp; use strict; use warnings; use threads; my $thread1= threads->new(\&test, "Erster Thread")->detach(); my $thread2 = threads->new(\&test2())->detach(); my $a = 0; for(;;) { sleep 1; print "Mainthread: " . $a++ . "\n"; } sub test { my $thread = @_; my $i = 0; for(;;) { sleep 1; print $thread . " " . $i++ . "\n"; } } sub test2 { my $i = 0; for (;;) { sleep 1; print "zweiter Thread: " . $i++ . "\n"; } }
    
    Gruß Christian
    
    Das Problem ist die Klammer hinter \&test2 beim Erstellen des 2.ten Threads.
    
    Code (perl): (dl )
    
    my $thread2 = threads->new(\&test2())->detach();
    
    Lasse ich die Weg läuft alles normal.
    Falls jemand weis wieso, würde ich mich rein aus interesse trotzdem über ein Antwort freuen.
    Laufen tut das Programm jetzt aber.
    Last edited: 2013-07-09 10:37:05 +0200 (CEST)
    - GwenDragon
      
      2013-07-09 13:29
      
      User since
      2005-01-17
      14892 Artikel
      Admin1
      
      \&test2 ist die Referenz auf die Funktion test2.
      \&test2() ist die Referenz auf den Rückgabewert der Funktion test2 die mit keinem Parameter aufgerufen wird.
      
      beispiel mit Ausgabe der referenzen.
      C:\>perl -w sub test2 { 1 } use Data::Dumper; print Dumper \&test2; print Dumper \&test2(); ^Z $VAR1 = sub { "DUMMY" }; $VAR1 = \1;
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2013-07-08 12:07.