Mon serveur ne marche pas je ne peux recevoir de connection seriez vous pourquoi ?
Enfet c'est pour faire un chat et je n'est aucune idee de comment utiliser select voici ma source :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#!usr/bin/perl
 
use IO::Socket;
 
print "<port> ";chomp(my $port=<STDIN>);
print "<login> ";chomp(my $pseudo=<STDIN>);
 
my $socket = new IO::Socket::INET->new(LocalPort=>$port,Proto=>'tcp');
system("clear");
 
print q(
 _            _  _   
/ |_   _ _ __| || |  
| | | | | \'__| || |_ 
| | |_| | |  |__   _|
|_|\__, |_|     |_|  
   |___/    
);
print "[+]Listening on " . $port . "\n";
 
while(1) {
 
 $socket->recv($data,1024);
 if($data != ""){
    print  $socket->peerhost, $data;
    chomp(my $rep=<STDIN>);
    print $socket->send($pseudo . ": " . $rep);
  }
 
}