Description :
Exemple permettant d'ouvrir un port en ecoute ...
Portion de code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# serveur
use IO::Socket::INET;
print "Listen on port UDP 5001\n";
$MySocket = new IO::Socket::INET->new(LocalPort=>5001,Proto=>'udp');
while(1) {
$MySocket->recv($text,128);
if($text ne ''){
print $MySocket->peerhost, " : Receive '", $text,"'\n";
}
}
|
|
Informations rapides
