Discussion :

[zeroox]

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 :

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

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

[2Eurocents]

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 :

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

  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 :

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

  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.

[zeroox]

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 :

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

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

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

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

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

[2Eurocents]

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 :

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

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 ?

[zeroox]

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

[Jedai]

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ï