Skip to main content
4 de 7
Revisão de redação
Victor Stafusa
  • 64,9mil
  • 9
  • 120
  • 189

Erro na porta serial do arduino com comunicação entre C e Perl

Estou com algumas dúvidas de como fazer a parte de programação no arduino.

Tenho que fazer uma linguagem se comunicar com o arduino e vice-versa. Possuo o programa em C e tenho que modificá-lo para esse projeto, a linguagem que terei de usar é Perl.

Segue o código que tenho:

use 5.014;
use strict;
use warnings;

use Win32::SerialPort;


my $port = new Win32::SerialPort("lib/Win32/SerialPort.pm");
$port->user_msg(ON); 
$port->databits(8);
$port->baudrate(19200);
$port->parity("none");
$port->stopbits(1);
$port->dtr_active(0);

while (1) {
   print "Enter a number... ";
   my $char = ;
   chomp($char);

   # Send the character to the Arduino
   if ($char =~ /^\d+$/) {
      print "Sending $char ...\n";
      $port->write("$char");
   }

}

Está dando o seguinte erro na porta serial:

Erro