Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 78ee50c863
Fetching contributors…

Cannot retrieve contributors at this time

executable file 21 lines (16 sloc) 0.453 kB
# Perl script to retrieve data from arduino USB connection
use Device::SerialPort;
# Set up the serial port
# 19200, 81N on the USB ftdi driver
my $port = Device::SerialPort->new("/dev/ttyUSB0");
$port->databits(8);
$port->baudrate(9600);
$port->parity("none");
$port->stopbits(1);
while (1) {
# Poll to see if any data is coming in
my $char = $port->lookfor();
if ($char) {
print "Recieved character: " . $char . " \n";
}
}
Jump to Line
Something went wrong with that request. Please try again.