Skip to content


Subversion checkout URL

You can clone with
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");
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.