Re: Socket in perl.

["Gollum1" <gollum1@tiscali.it>]

In data mercoledì 23 settembre 2009 09:17:23, hai scritto:

Correzione della sub, l'errore del can_read è dovuto al fatto che sto usando 
un metodo che non è della classe giusta, con questa piccola modifica non mi 
torna più l'errore (ancora non mi ritorna i valori che legge, ma questo è un 
altro discorso).


> sub _service_recv {
> 	my $s = shift;
        my $s1 = new IO::Select( $s );
        
> 	print "service_recv started\n" if ($debug);
> 
> 	while($running) {
> 		foreach my $r ($s1->can_read(1)){
                                       ^^^
> 			$r->recv($response, 2);
> 			print "ritorno: ", $response, "\n";
> 		}
> 	}
> 	print "service_recv shutting down\n" if ($debug);
> }
> 

-- 
Gollum1
Tessssoro, dov'é il mio Tessssoro? 
--------------------------------------------------------

Questa e-mail, ed i suoi eventuali allegati, contengono informazioni confidenziali e riservate. 
Se avete ricevuto questa comunicazione per errore non  utilizzatene il contenuto e non portatelo a conoscenza di alcuno. Siete inoltre pregati di eliminarla dalla vostra casella e avvisare il mittente. 
E' da rilevare inoltre che l'attuale infrastruttura tecnologica non puo' garantire l'autenticita' del mittente, ne' tantomeno l'integrita' dei contenuti. 
Opinioni, conclusioni ed altre informazioni contenute nel messaggio possono rappresentare punti di vista personali a meno di diversa esplicita indicazione autorizzata.
--------------------------------------------------------