Windowsの(Cygwinの)PerlでDevice::USBをインストールしたときのメモ

記憶で書いてるし、WindowsでPerl使うの初めてなのでスマートな方法じゃないかもですけどメモっておきます。

• Cygwinをてきとうにインストール
• LibUsb-Win32 のFilter Driverをインストール
  • libusb-win32-filter-bin-0.1.12.1.exe
  • C:\Program Files\LibUSB-Win32\include\usb.h をCygwin的な/usr/include/usb.hにcp。
  • C:\Program Files\LibUSB-Win32\lib\gcc\libusb.aをCygwin的な/usr/lib/libusb.aにcp。ファイル名をlibusb.aにするのを忘れないように。
• CPANから、Ingy döt Net / Inline - search.cpan.org をインストール
  • Device::USBを入れるのに必要なの
• vi /usr/bin/perlld
  • ↓な感じに変更する。

$ diff -u /usr/bin/perlld{.orig,}
--- /usr/bin/perlld.orig        2008-03-06 18:33:09.458910000 +0900
+++ /usr/bin/perlld     2008-03-06 18:18:25.783013200 +0900
@@ -5,7 +5,7 @@

 # these are pretty mandatory
 my $CC = 'gcc';
-my $EXPORT_ALL = 1;
+my $EXPORT_ALL = 0;

 # if some of extensions are undefined,
 # no corresponding output will be done.

• • これをやらないと、Device::USBのmake中に、「Cannot export \177libusb0_NULL_THUNK_DATA: symbol not found」と怒られて進めない。
  • nm /usr/lib/libusb.aするとシンボルはあるみたいなんだけど。\177 = 0x7F = ^? = DELがとてもあやしい。
• で、やっと、Device::USBのインストール。
  • ここまでお膳立てしてれば府ツーに入るはず。

USBデバイスにcontrol_msg送るだけの簡単なものですが、Linux＋libusb＋Device::USBで動いたスクリプトがそのまま、Windows XP SP2＋libusb-win32＋Device::USBで動きました。うひひ。