PDA

Visualizza la versione completa : [Perl] Socket e Thread


4l3
12-12-2008, 00:09
Ciao a tutti, devo realizzare un'applicazione che mi permetta di effettuare connessioni simultanee a vari host, e portare avanti il dialogo con i vari server parallelamente.
Ho optato per una struttura del genere:



sub thread_c {

$MySocket=new IO::Socket::INET->new(PeerPort=>1234,
Proto=>'tcp',
PeerAddr=>$_[0]);

$MySocket->recv($text,1024);
#eccc.......
#eccc.......
}

#............
#............

push(@thread_vector,threads->new(\&thread_c, $host));
push(@thread_vector,threads->new(\&thread_c, $host2));
push(@thread_vector,threads->new(\&thread_c, $host3));



Questa struttura mi crea problemi:
ovvero durante l'esecuzione del programma non riesce a connettersi ad alcuni host, pur essendo totalmente raggiungibili, e gli host a cui si connette dipende da l'ordine in cui avvio i thread(con relativo host assegnato) ...questo mi lascia pensare che alcuni thread non riescano ad accedere al socket perchè non sto gestendo bene il parallelismo...

Qualche idea?

Loading