Faire un select sur plusieurs sockets

Scetbon Cyril <cyril.scetbon@free.fr> écrit:

qq'un aurait il un exemple de bout de code permettant de faire un select
sur plusieurs sockets en même temps (donc pas de select successifs) et
de savoir ensuite quel est le socket sur lequel des octets sont
disponibles en lecture ?

perldoc -f select

Laurent Wacrenier wrote:

Scetbon Cyril <cyril.scetbon@free.fr> écrit:

qq'un aurait il un exemple de bout de code permettant de faire un select
sur plusieurs sockets en même temps (donc pas de select successifs) et
de savoir ensuite quel est le socket sur lequel des octets sont
disponibles en lecture ?

perldoc -f select
/dev/null
c'est la 1ere chose que j'ai faite.

Scetbon Cyril <cyril.scetbon@free.fr> écrit:

qq'un aurait il un exemple de bout de code permettant de faire un
select sur plusieurs sockets en même temps (donc pas de select
successifs) et de savoir ensuite quel est le socket sur lequel des
octets sont disponibles en lecture ?
trouvé:

vec($rin,fileno($_),1)=1 for (@sockets);
($numready)=select($rout=$rin,undef,undef,undef);

puis retester tous les vecteurs derrière avec $rout en variable pour
déterminer sur quelle socket il y a des données:
for(@sockets)
{
if(vec($rout,fileno($_),1)
{
print "trouvé!n";
last; # une personne à la fois.
}
}

Scetbon Cyril <cyril.scetbon@free.fr> écrit:

trouvé:

vec($rin,fileno($_),1)=1 for (@sockets);
($numready)=select($rout=$rin,undef,undef,undef);

puis retester tous les vecteurs derrière avec $rout en variable pour
déterminer sur quelle socket il y a des données:

Voilà, maintenant, c'est plus simple avec le module IO::Select.

Voilà, maintenant, c'est plus simple avec le module IO::Select.

Voire IO::Multiplex un cran plus haut, voire même poe direct :-)

Patrick.