1
2
3
4
5
6
7
8
9
10
11
12
13
14
| #!perl
# PerlParallelPortMacroPlayer
# by MDR mdr@sevenearth.com
use strict;
use Device::ParallelPort;
use Time::HiRes;
my $port = Device::ParallelPort->new;
# パラレルポートを出力方向にセット
$port->set_bit( 21, 0 );
# データビット２をN
$port->send_data( chr(0x02) ); |
This entry was posted
on 水曜日, 5月 16th, 2007 at 11時20分34秒 and is filed under 徒然, Hack？, デジタルなモノ.
You can follow any responses to this entry through the RSS 2.0 feed.
You can leave a response, or trackback from your own site.