#!/usr/bin/perl -w # Controls HalfY matrix switch # Switches both levels (audio and video) use strict; use Device::SerialPort; my $port = Device::SerialPort->new("/dev/ttyS0"); $port->baudrate(9600); $port->parity("none"); $port->handshake("none"); $port->databits(8); $port->stopbits(1); $port->read_char_time(0); $port->read_const_time(1); # send data out $port->write("CL1I1O1T"); print "TV input now from mythTV\n"; $port->write("CL2I1O1T");
In reply to Disabling buffering of serial port? by JimLS
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |