Problème thread et fonction récursive

Version imprimable

25/09/2006, 12h16
cryptorchild

Problème thread et fonction récursive
Salut a tous j'ai un problème de threads. voila j'ai un programme dont je veut lancer 2 fonctions dans des threads la fonction principale faisant partie du thread principale biensur. Mon probème c'est que mes trois fonctions sont récursive et que donc mes threads sont bloqué :? .

Pour lancer mes fonctions je fait comme cela
Code:

1 2 3 4 my $th1 = threads->create({'context' => 'void'}, sub { new_server(); } ); my $th2 = threads->create({'context' => 'void'}, sub { job_queue(); } ); main(); # fonction principale
Mon premier thread ce lance bien mais les autres non car new_server est un fonction récursive tout comme les autres.

Savez vous comment régler ce problème ??
26/09/2006, 17h02
cryptorchild

Personne n'aurait une petite idée :?

Voila une des fonctions qui me pose problème j'ai coupé dans le code car il est vraiment très long

Code:

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 new_client
  {
   print "\nClient lancé\n";
     my $host = shift;
     my ($sock ,$data ,$temp);
 
        while (1)
        { 
          while ( !$sock )
          {
            $sock = new_connect($host);
          }
          while ( $data = receive_data($sock) )
          {
                 if ( ref($data) eq "HASH" and scalar keys %$data > 0)
                 {
                   [...]
 
                 }
                   else
                 {
                   print "\nInvalid hash\n";
                 }
         }
      }
  }

27/09/2006, 12h19
Jedai

new_client() ne m'a pas l'air vraiment récursive.. Mais le problème n'est pas là, mais plutôt au niveau du receive_data() qui bloque sûrement, il faudrait faiire ça de façon non-bloquante, avec un select peut-être.

--
Jedaï