Bonjour,

Je souhaite créer un programme en perl permettant de lire les données reçues sur un des ports USB de mon PC Windows.
J'ai trouvé des exemples sur internet (comme le suivant) mais rien ne se passe.
J'arrive à voir à l'aide d'un logiciel de monitoring que des trames arrivent bien sur le port.
Je suis débutant sur Perl et je me permet de solliciter votre aide à ce sujet.

En vous remerciant,

Cordialement.


-----------------------------------------------------------
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 Win32::SerialPort;
 
my $port = Win32::SerialPort->new("COM3");
$port->databits(8);
$port->baudrate(19200);
$port->parity("none");
$port->stopbits(1);
 
while(1) {
my $byte=$port->read(1);
print "$byte";
}