Socket_Chat_Program_by_Perl

perlish

#!/usr/local/bin/perl -wT \r\nrequire 5.002; \r\nuse strict; \r\nuse IO::Socket; \r\nuse IO::Select; \r\n\r\n# create a socket to listen to a port \r\nmy $listen = IO::Socket::INET->new(Proto => \'tcp\', \r\n   LocalPort => 2323, \r\n   Listen => 5, \r\n   Reuse => 1) or die $!; \r\n# to start with, $select contains only the socket we\'re listening on \r\nmy $select = IO::Select->new($listen); \r\n\r\n\r\nmy @ready; \r\n\r\n# wait until there\'s something to do  \r\nwhile(@ready = $select->can_read) { \r\n\r\n    my $socket; \r\n\r\n    # handle each socket that\'s ready \r\n    for $socket (@ready) { \r\n# if the listening socket is ready, accept a new connection \r\nif($socket == $listen) { \r\n    my $new = $listen->accept; \r\n    $select->add($new); \r\n    print $new->fileno . \": connected\\n\"; \r\n} else { \r\n\r\n    # otherwise, read a line of text and send it back again \r\n    my $line=\"\"; \r\n    $socket->recv($line,80); \r\n    $line ne \"\" and $socket->send($line) or do { \r\n\r\n# either can\'t send or can\'t receive, so they must have hung up \r\nprint $socket->fileno . \": disconnected\\n\"; \r\n$select->remove($socket); \r\n$socket->close; \r\n    }; \r\n} \r\n    } \r\n} \r\n\r\n