[clump.git] / write-to-serial.pl

#!/usr/bin/perl
use v5.14;
use warnings;

use Device::SerialPort;

my $program;
read STDIN, $program, 1000000;

my $port = Device::SerialPort->new($ARGV[0] // '/dev/ttyUSB1') or die "$!";
$port->baudrate(300);
$port->parity('none');
$port->databits(8);
$port->stopbits(2);
$port->handshake('none');

$port->write_settings or die "$!";

my $bytes_written = $port->write($program);
my $bytes_to_write = length $program;
die "Only wrote $bytes_written instead of $bytes_to_write" unless $bytes_written == $bytes_to_write;
Commit	Line	Data
52e4bb14 MG	1	#!/usr/bin/perl
	2	use v5.14;
	3	use warnings;
	4
	5	use Device::SerialPort;
	6
	7	my $program;
	8	read STDIN, $program, 1000000;
	9
	10	my $port = Device::SerialPort->new($ARGV[0] // '/dev/ttyUSB1') or die "$!";
	11	$port->baudrate(300);
	12	$port->parity('none');
	13	$port->databits(8);
	14	$port->stopbits(2);
	15	$port->handshake('none');
	16
	17	$port->write_settings or die "$!";
	18
	19	my $bytes_written = $port->write($program);
	20	my $bytes_to_write = length $program;
	21	die "Only wrote $bytes_written instead of $bytes_to_write" unless $bytes_written == $bytes_to_write;