envoyer par RS232

Version imprimable

28/02/2013, 17h45
GGaston

envoyer par RS232

Bonjour,
Je voudrais envoyer un caractère (par exemple: LF) par RS232 au démarrage de ma Debian.
J'ai un peu fouillé le net mais je n'ai rien trouvé (ou mal cherché) comme solution. Par contre j'ai vu que l'on pouvait rajouter des commandes dans le script rc.local pour effectuer ce petit travail à chaque démarrage de mon portable. Ceci pour lancer une procédure d'acquisition de données.

Pourriez-vous m'aider, svp ?
GG
01/03/2013, 09h09
Philou67430

Ta question porte sur :
1) comment écrire LF sur une RS232 en perl ?
ou
2) comment lancer un script perl au démarrage de Debian ?

Si c'est 2), la question n'est pas dans le bon forum.
Si c'est 1), l'utilisation du module CPAN Device::SerialPort devrait faire l'affaire (en tout cas, ce module fonctionne bien pour mes usages).
01/03/2013, 10h43
GGaston

Bonjour,
Bien, je voudrais faire les deux... en un.
C'est à dire : lancer un script perl au démarrage de Debian qui contient LF et l'envoi sur la RS232.
A+

Pour le 1)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
use Device::SerialPort;
 
my $port = Device::SerialPort->new("/dev/ttyS4"); # adapter le tty concerné
# Configuration a adapter :
$port->baudrate($baudrate);
$port->databits(8);
$port->parity("none");
$port->handshake("none");
$port->read_const_time(50);
$port->write_settings or die "Can't set port configuration: $!\n";
 
$port->write("\n");

Si le code "\n" n'est pas le bon, essayer avec "\r".

Pour la question 2), poser la question sur le bon forum.