Discussion :

[jesus144]

Bonjour,
j'ai un problème avec le code suivant:

Code :

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

1
2
3
while (my $client = $server->accept()) {
    threads->new(perform , $client);
}

ou la methode perform est défini par:

Code :

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

1
2
3
4
5
6
7
8
9
10
 sub perform{
    	my $client = @_;
	print $client "Le serveur dit 'bonjour' au client !\n";
	while (my $ligne = <$client> ) {
		     print "client> $ligne";		   	
	}
	print "Fin\n";
	close($client);
	exit;
}

je n'arrive pas a écrire sur la socket depuis la methode perform. Si je supprime la ligne, la connexion est bien établie mais se ferme immediatement... c'est a dire que le while n'est pas traverser. Est ce que le passage de la socket est correct ??? sinon, comment créer le thread en lui passant la socket?
Merci de votre aide!!!

[jesus144]

ben en faite, c'etait tout bête:

Code :

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

threads->new(\&perform , $client);

voili voilou