Dear Friends,
I am facing one problem please let me know if anybody knows the solution.
The problem is as follows....
use IO::Select;
use IO::Socket;
The variable $sock will be handling my socket id for TCP, AF_INET/PF_INET
family and the code is as shown bellow..........
Listen ($sock, 5); #listens on this socket
$sel = new IO::Select( $sock );
while(@ready = $sel->can_read) {
foreach $fh (@ready) {
if($fh == $lsn) {
# Create a new socket
$new = $lsn->accept;
$sel->add($new);
}
else {
# Process socket
# Maybe we have finished with the socket
$sel->remove($fh);
$fh->close;
}
}
}
even if there is event(connection/read/write) to be accepted, select returns
empty set most of the times.. even though other(client) is initiating
connection.
If anyone has come across such problem please let me know the solution.
Thanks and Regards,
Gayatri
***************************NOTE*********************************************
**
Deccanet Designs Ltd is now Flextronics Design Ltd, India
****************************************************************************
**
*************************DISCLAIMER*****************************************
**
This e-mail and any attachment is for authorised use by the intended
recipient(s) only. It may contain proprietary material, confidential
information and/or be subject to legal privilege of Flextronics Design Ltd.
If you have received this message in error, please notify the originator
immediately. If you are not the intended recipient, you are notified that
you are strictly prohibited from retaining, using, copying, altering or
disclosing the contents of this message.
****************************************************************************
**
***************************NOTE***********************************************
Deccanet Designs Ltd is now Flextronics Design Ltd, India
******************************************************************************
*************************DISCLAIMER*******************************************
This e-mail and any attachment is for authorised use by the intended
recipient(s) only. It may contain proprietary material, confidential
information and/or be subject to legal privilege of Flextronics Design Ltd.
If you have received this message in error, please notify the originator
immediately. If you are not the intended recipient, you are notified that
you are strictly prohibited from retaining, using, copying, altering or
disclosing the contents of this message.
******************************************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
