Bonjour à tous,

Pour la petite histoire je suis étudiant en stage et mon objectif est d'écrire un programme qui récupère des données sur un appareil de mesure météorologique par liaison GSM (La machine en question étant pomé au milieu de la nature, y aller toutes les semaines c'est pas spécialement marrant ).

Bref, quoiqu'il en soit je me retrouve aujourd'hui face un problème de taille (enfin de taille, pour moi ).
Je pense que vous donner le code directement est le plus simple (Y'a 3 misérable ligne donc bon, je pense pas que ça posera de problèmes aux pros de ce forum ) :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use Device::SerialPort;
 
my $com1="/dev/ttyS0";
my $port = Device::SerialPort->new($com1);
 
$port->user_msg(ON);
$port->baudrate(9600); 
$port->parity("none"); 
$port->databits(8); 
$port->stopbits(1); 
$port->handshake("xoff"); 
$port->write_settings;
$port->write("AT");
Ça doit surement être une erreur plus qu'évidente, mais ayant commencé le Perl ce matin et personne pour me donner un coup de main je suis un peu en galère ! soyez indulgent