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: