[perl][up] passer des references entre thread

Bonjour.
J'ai un petit souci avec un serveur tcp. Nous avons créer une file d'attente de connexion de client. A chaque nouveal connection, nous sauvegardons l'bojet dans un tableau. c'est la que se situe le probleme. Si on fait un push d'une valeur texte, ca se passe sans probleme, mais des que nous faisons un push sur l'objet client, il ne sauve rien dans un tableau. Comment faire?

Code:

---

1 2 3 4 5 6 7 8 9 10 11

#Attende d'un client my $client; if($client = $server->accept()) { print Dumper ($client); # on voit la valeur de hash   push @TAB_SOCKET, $client; print Dumper (@TAB_SOCKET); # rien du tout   }

---

Si a la place de $client, nous mettons "lol", ca ne pose aucun prob.

COmment sauvegarder $client???????

J'envisagerais deux solutions, au moins (mais aucun n'est testée ...).

• - La sauvegarde doit perdurer le temps de l'exécution du programme : on met dans le tableau une référece sur l'objet :
  Code:

  ---

  push @TAB_SOCKET, \$client;

  ---

  - La sauvegarde doit persister entre deux exécutions (le tableau sera sauvé dans un fichier par exemple) : on met dans le tableau un dump de l'objet :
  Code:

  ---

  push @TAB_SOCKET, Dumper($client);

  ---

Bien sûr, ce type de solution ne convient pas nécessairement à tous les objets, mais c'est déjà un début.

merci pour ta réponse, mais la solution 1 ne marche pas, et la 2 ne m'avance pas. En fait le code que j'ai mis est celui du thread principal.

La variable tableau est en share, et a chaque fois que un push est fait dans celui-ci, un 2eme thread récuupere la valeur comme suit :

Code:

---

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

sub Thread { while (1) { foreach my $temp (@TAB_SOCKET) { print Dumper (@TAB_SOCKET); print "debut\n"; shift (@TAB_SOCKET); sleep (1); #Traitement ($temp); } } }

---

donc pas besoin du fichier. Le seul probleme que j'ai c'est dans le code principal, apres le push de l'objet $client, il n'y a rien dans la tableau, et $client ne contient plus rien non plus.

Le probleme vient pe d'une reference, mais je debute encore en perl donc si vous pouviez m'éclairer...

Petit up : je me suis rendu compte que le probleme ne vient pas du tableau mais du partage de celui-ci pour les thread.

Code:

---

1 2	share(@TAB_SOCKET);

---

si j'enleve la ligne du partage, mon thread ne sait plus lire le tableau, mais la valeur est sauve dans le thread principal. Y a t-il une autre solution pour partager le tableau

Citation:

---

Envoyé par zeroox

Petit up : je me suis rendu compte que le probleme ne vient pas du tableau mais du partage de celui-ci pour les thread.

Code:

---

1 2	share(@TAB_SOCKET);

---

si j'enleve la ligne du partage, mon thread ne sait plus lire le tableau, mais la valeur est sauve dans le thread principal. Y a t-il une autre solution pour partager le tableau

---

Je n'ai jamais travaillé sérieusement avec des threads, mais un truc me chagrine ...

Peut on réellement stocker, dans un tableau partagé, des références à des objets qui ne sont pas partagés ? Il me paraîtrait légitime que non, ce qui explique que tes objets ne soient plus visibles après ...

Il est peut être possible de déclarer $client comme étant partagée aussi, non ?

g essayer aussi, mais ca ne marche pas, mm en envoyant directement client.

Y a t-il d'autre chose que share pour partager entre des thread

On ne peut pas partager des objets entre plusieurs threads, le support des threads en Perl est très expérimental et peu recommandé.
A la place, il vaut mieux utiliser des systèmes tel que POE.

--
Jedaï