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
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
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(); }
merci d'avance
_______________________
Olivier
Partager