1) C'est pas un serveur web mais tcp
2) le code perl est transparent:
creation d'une socket
socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
et ouverture
connect(SERVER, sockaddr_in($MODBUS_PORT, $server_ip)
creation d'une requête (encodage des parametres dans un paquet ad-hoc)
envoi de la requête
send(SERVER, $tx_buffer, 0);
reception, sur lequel on parse d'abord l'en-tête
recv(SERVER, $rx_buffer, 7, 0);
et le reste après verification de l'en tete
recv(SERVER, $rx_buffer, $rx_hd_length-1, 0);
decodage des données de la réponse.
fermeture de la socket
close SERVER;
Bref du code réseau complètement standard.
A+,
---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --