从Perl模块（Windows平台）访问USB设备

我正在尝试访问连接到windows平台上PC的usb设备。我用了这样的方法：

use Device::USB;
   my $usb = Device::USB->new();
   my $dev = $usb->find_device($VENDOR, $PRODUCT);

作为参数发送的变量

$VENDOR，$PRODUCT

究竟是什么？ 我怎么找到他们

我的设备的驱动程序已经安装。我使用Windows7和Perl5.18版本

请帮忙做这件事。提前谢谢

我怎么找到他们

---

您可以使用

$usb->list_busses（）

获取总线阵列，然后在

$bus->devices（）

中检查每个设备的供应商和产品id。

通过

$bus

您的意思是说，

$usb->list_busses（）

返回的总线之一？我应该向

$bus->devices（）

函数传递哪些参数来获取供应商和产品id？你能给我指一下我可以参考的资料吗。我还试图向连接的USB设备发送一些消息。这实际上是谷歌

perl设备：：USB

的一项任务。使用来源，卢克！