Gogo Real + Perl: Beep – II

Como vimos aqui, para utilizar o código escrito em perl, precisaremos instalar a biblioteca “SerialPort.pm“.

Para isso, no shell de comandos do Linux, deveremos utilizar:

sudo apt-get install libdevice-serialport-perl

Para executar o código, bastará utilizar:

perl meuprograma.pl

Se tudo estiver correto, a placa emitirá o sinal de beep.

Gogo Real + Perl: Beep

Com base neste artigo do Arduino, podemos nos comunicar com a placa usando a linguagem Perl.

Para isso, além dela, será preciso recorrer a esta biblioteca, que pode ser instalada no Ubuntu, via “apt-get”.

Feito isso, é só utilizar este código:

# Set up the serial port
use Device::SerialPort;
my $port = Device::SerialPort->new("/dev/ttyACM0");

# 9600, 81N on the USB ftdi driver
$port->baudrate(9600);
$port->databits(8);
$port->parity("none");
$port->stopbits(1);

$port->write("\x54\xFE\xC4\x00\r\n");

$port->close();