Problem mit Threads (Allgemeines zu Perl)

[thread]19315[/thread]

Problem mit Threads

Tags: perl5 Threads Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+7 replies
Gast fma

2014-09-29 16:59
Hey zusammen,

ich zweifel grade an einem Problem mit Threads in Perl.

ich habe folgende Sub-Routine (auch gestartet als thread)
Code: (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

sub worker { while(1){ if(($ftp_status eq "aktiv") || ($log_status eq "aktiv")){ my @thrs; foreach my $object (@Liste){ #Überprüfe, ob die letzte Durchführng abgeschlossen ist if(!$arr_ablauf[$object->getID()]){ $arr_ablauf[$object->getID()] =1; push @thrs, threads->create(\&ablauf, $object); } } $_ -> join for @thrs; print "joined\n"; } sleep 10; } }
Wenn ich Prgramm ausführe, bricht es immer wieder beim join ab, mit der meldung Free to wrong pool 2622230 not 3f5f80 during global destruction.. Woran liegt das Problem?

die @Liste beinhaltet divierse Klassen-Objekte, welche ich selbst erstellt hab. Diese werden dann in der Funktion "ablauf" bearbeitet (aber nicht verändert).
Last edited: 2014-09-29 17:03:57 +0200 (CEST)
- +6 replies
- jan
  
  2014-09-29 19:27
  
  User since
  2003-08-04
  2536 Artikel
  ModeratorIn
  
  Kann es sein, dass Du Module benutzt, die nicht thread-safe sind?
  - +5 replies
  - Gast fma
    
    2014-09-30 10:30
    
    Soweit ich in Erfahrung gebracht habe, sind die ganzen GUI-Module nicht thread-safe. Dessen bin ich mir bewusst.
    Es gibt aber einen Trick, um trotzdem Threads + GUI zu verwenden. Die Worker-Threads müssen nur vor der GUI-Erstellung erzeugt werden und die GUI muss in einem eigenen Thread laufen. Das habe ich berücksichtigt LINK
    Die GUI setzt bei mir nur Variablen, damit die verschiedenen Arbeiten durch den Worker ausgeführt werden oder nicht.
    
    modedit Editiert von GwenDragon: Link repariert
    Last edited: 2014-09-30 10:31:46 +0200 (CEST)
    - +4 replies
    - jan
      
      2014-09-30 13:02
      
      User since
      2003-08-04
      2536 Artikel
      ModeratorIn
      
      was läuft denn in der sub ablauf?
      - +3 replies
      - Gast fma
        
        2014-09-30 13:15
        
        Die sub ablauf sieht wie folgt aus:
        
        Code: (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
        
        sub ablauf{ #Object ist ein Klassenobjekt und enthält alle Eigentschaften my $object = shift; #Überprüfe, ob neue Daten über die FTP-Verbindung geladen werden sollen if($ftp_status eq "aktiv"){ logging("neue Thread fuer " . $object->getName() . " gestartet.", "ftp-sync"); #Starte den FTP-Vorgang transfer($object); } #Überprüfe, ob die Daten weiterverarbeitet werden sollen if($log_status eq "aktiv"){ logging("Changer fuer " . $object->getName() . " gestartet.", "Changer"); #Starte Weiterverarbeitung changer($object); } #Setze Variable , das die Durchführung abgeschlossen ist $arr_ablauf[$object->getID()]=0; }
        
        Ich vermute das der Fehler hier nicht liegt, da die alternative sub ablauf2 den gleichen Fehler bringt:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9
        
        sub ablauf2{ my $j = rand(10); #print "Thread $i..... $j\n"; sleep($j); }
        
        Last edited: 2014-09-30 13:37:25 +0200 (CEST)
        
        +2 replies
        
        Raubtier
        
        2014-09-30 13:47
        
        User since
        2012-05-04
        1054 Artikel
        BenutzerIn
        
        Wenn sogar schon ein nur schlafender Thread zum Absturz führt, muss der Fehler irgendwo anders liegen.
        
        Bekommst du eine minimale lauffähige Version deines Programms hin, die den Absturz reproduziert, sodass wir das mal reproduzieren können?
        
        Welche Perl-Version nutzt du?
        
        Gast fma
        
        2014-09-30 14:04
        
        Ich verwende Strawberry Perl 5.20.1 unter Windows XP.
        
        Die Reproduzierung habe ich auch schon versucht, bin jedoch bis jetzt gescheitert.
        
        Das einfachste Skrtipt was mit Threads und Tk funktioniert ist folgendes:
        
        Code: (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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
        
        #!/usr/Bin/perl -w use strict; use warnings; use Threads; my $thread = threads->create( \&test ); $thread->detach; use Tk; # Create the window my $main = new MainWindow; my $label2 = $main->Label( -pady => '1', -relief => 'flat', -padx => '1', -state => 'normal', -justify => 'center', -font => [-family => 'Arial',-size => 14, -weight => 'bold',], -text => 'Status', )->place( -x => 125, -y => 25); MainLoop; sub test{ my @thrs; for (1..10){ #print "$_\n"; push @thrs, threads->create(\&inside, $_); } $_ -> join for @thrs; print "done2\n"; } sub inside{ my $i = shift; my $j = rand(10); #print "Thread $i..... $j\n"; sleep($j); #print "Thread $i ready\n"; }
        
        In Vergleich zu meinem Programm mit der sub2 gibt es so gut wie keinen Unterschied. Lediglich wird die GUI unter zuhilfenahme von Variablen erstellt. Daran kann es meiner Meinung nach nicht liegen.
        
        modedit Edited by GwenDragon: Code umgebrochen zwecks Lesbarkeit
        Last edited: 2014-09-30 14:15:04 +0200 (CEST)

View all threads created 2014-09-29 16:59.