• [^] # Re: ça fonctionne !

    Posté par . En réponse au message Pince ampèremétrique USB. Évalué à 2.

    pour la mise en page sur le forum c'est plus joli avec la balise markdown pour perl

    ecrire :
    ```perl
    #!/usr/bin/perl
    use Device::SerialPort;
    my $file = "/dev/ttyACM0";
    my $port = Device::SerialPort -> new($file);
    $port -> baudrate(19200);
    $port->write_settings();
    open(DEV, "<$file") or die;
    $port->write();
    if ($_ = ) { print $_ ; }
    ```

    qui va alors s'afficher comme ca

     #!/usr/bin/perl
 use Device::SerialPort;
 my $file = "/dev/ttyACM0";
 my $port = Device::SerialPort -> new($file);
 $port -> baudrate(19200);
 $port->write_settings();
 open(DEV, "<$file") or die;
 $port->write(); 
 if ($_ = <DEV>) { print $_ ; }