Was macht mein Programm (Socket, Select) (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]10893[/thread]

Was macht mein Programm (Socket, Select)

Leser: 1

grey1987

2007-11-26 11:45

User since
2007-11-21
83 Artikel
BenutzerIn
[default_avatar]

Wer kann mir beschreiben was mein Programm macht?
Auch wenn Ihr nur Teile davon kennt, schreibt es bitte rein.

Code (perl): (dl )

use IO::Socket;
use IO::Select;

$socket = new IO::Socket::INET (PeerAddr =>'PC110197',PeerPort => 1810,) or die "Konnte Socket nicht erstellen: $!\n";
$select = new IO::Select ($socket);
print $socket "CLIENT CREATE\n";

while(@ready = $select->can_read) {
  foreach $fh (@ready) {
    if($fh == $socket) {
      $new = $socket->accept;
      $select->add($new);
    }
    else {
      $select->remove($fh);
      $fh->close;
    }
  }
}