Discussion :

[GGaston]

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

[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).

[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+

[Philou67430]

Pour le 1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.