NAME
RPi::Serial - Basic read/write interface to a serial port
SYNOPSIS
use RPi::Serial;
my $dev = "/dev/ttyAMA0";
my $baud = 115200;
my $ser = RPi::Serial->new($dev, $baud);
$ser->putc(5);
$ser->puts("hello, world!");
my $char = $ser->getc;
my $num_bytes = 12;
my $str = $ser->gets($num_bytes);
$ser->flush;
my $bytes_available = $ser->avail;
$ser->close;
DESCRIPTION
Provides basic read and write functionality of a UART serial interface
WARNING
If using on a Raspberry Pi platform:
In order to use GPIO pins 14 and 15 as a serial interface on the Raspberry Pi, you need to disable the built-in Bluetooth adaptor. This distribution will not operate correctly without this being done.
To disable Bluetooth on the Pi, edit the /boot/config.txt
, and add the following line:
dtoverlay=pi3-disable-bt-overlay
Save the file, then reboot the Pi.
METHODS
new($device, $baud);
Opens the specified serial port at the specified baud rate, and returns a new RPi::Serial object.
Parameters:
$device
Mandatory, String: The serial device to open (eg: "/dev/ttyAMA0"
.
$baud
Mandatory, Integer: A valud baud rate to use.
close
Closes an already open serial device.
avail
Returns the number of bytes waiting to be read if any.
flush
Flush any data currently in the serial buffer.
fd
Returns the ioctl
file descriptor for the current serial object.
getc
Retrieve a single character from the serial port.
gets($num_bytes)
Read a specified number of bytes into a string.
Parameters:
$num_bytes
Mandatory, Integer; The number of bytes to read. If this number is larger than what is available to be read, a 10 second timeout will briefly hand your application.
putc($char)
Writes a single character to the serial device.
Parameters:
$char
Mandatory, Unsigned Char: The character to write to the port.
puts($string)
Write a character string to the serial device.
Parameters:
$string
Mandatory, String: Whatever you want to write to the serial line.
AUTHOR
Steve Bertrand, <steveb at cpan.org>
LICENSE AND COPYRIGHT
Copyright 2018 Steve Bertrand.
This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.
See http://dev.perl.org/licenses/ for more information.