iww https://blog.hatena.ne.jp/iww/ 揮発性のメモ２ https://iww.hateblo.jp/ perl USBヘッドセットについてるボタンの押されっぷりとかを取得する話 Linux Input Subsystemの使い方 とりあえずSYNとかそういうのよくわからないので全部出す #!/usr/bin/perl open(my $fh, $ARGV[0]) or die; binmode($fh); while( read($fh, my $buf, 16) ){ my ( $sec,$usec,$type,$code,$value ) = unpack( "LLSSl", $buf ); print "time=$sec\n"; print "type=$type\n"; print "code… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fiww.hateblo.jp%2Fentry%2F20140213%2Funpack" title=" 入力デバイスの入力をperlで見る - 揮発性のメモ２" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2014-02-13 00:00:00 rich https://iww.hateblo.jp/entry/20140213/unpack 1.0 100%