Discussion :

[cryptorchild]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ??

[cryptorchild]

Personne n'aurait une petite idée

[cryptorchild]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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";
                 }
         }
      }
  }

[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ï