Difference between revisions of "BuZz/Stitch ledbar perlscript"
From Eth0Wiki
(Created page with '#!/usr/bin/perl use Device::SerialPort; use Time::HiRes qw(usleep); $port = Device::SerialPort->new("/dev/ttyUSB0"); if (!$port) { print "ttyUSB0 unopenable\n"; exit; } $po…') |
|||
| Line 1: | Line 1: | ||
| + | <pre> | ||
#!/usr/bin/perl | #!/usr/bin/perl | ||
| Line 21: | Line 22: | ||
my $count_out = $port->write($command); | my $count_out = $port->write($command); | ||
| + | |||
| + | |||
| + | </pre> | ||
Latest revision as of 20:28, 15 January 2011
#!/usr/bin/perl
use Device::SerialPort;
use Time::HiRes qw(usleep);
$port = Device::SerialPort->new("/dev/ttyUSB0");
if (!$port) {
print "ttyUSB0 unopenable\n";
exit;
}
$port->databits(8);
$port->baudrate(9600);
$port->parity("none");
$port->stopbits(1);
# my $text = "<D*>"; # dit is alles wissen
my $text = "<PA><CA>--<CB>=<CC>[<CM> 21:30-22:30 get drunk on the cheap, hacky hour; 1 grolsch = just 3 tokens <CC>]<CB>=<CA>-- "; # leuk regeltje tekst
my $command = "<ID01>".$text.chr(13).chr(10);
my $count_out = $port->write($command);
