Bonjour,

Je suis en train de faire un service qui attend des messages telnet. Le mini serveur attend donc une connection. je voudrais avoir le message telnet en entier qui est systématiquement réparti en 2 trames. Je n'arrive que a avoir la première trame.

voici une partie du code

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
 
my $serverPort = 23;
my $socket = IO::Socket::INET->new(LocalPort => $serverPort,
                                Reuse     => 1,           
                                Listen    => 5)
   or die "Can't start tcp-server at port $serverPort ($!)\n"; 
 
my $socketConnection; 
my $RECVSIZE = 10000; 
my ($message,$answer);
print "Starting server on port $serverPort \n\n"; 
while ($socketConnection = $socket->accept())        
  {
    print "Received connection.\n"; 
    my $message = chr(13);
    $socketConnection->send($message);
    my $obj = new Net::Telnet();
    $obj->open("10.3.1.111");
    $mess = $obj->getlines; 
    #$socketConnection->recv($answer,$RECVSIZE); 
    print $mess;
 
 
 $socketConnection->close();  
  }
l'histoire du NET::TELNET c'est juste pour essayer de capturer le message autrement que par la méthode receive de la socket qui marche pas. Mais si quelqu'un a une soluce d'une manière ou d'une autre pour traiter l'entièreté du message je suis preneur

merci d'avance


_______________________
Olivier