Device::USB Probleme - #121744 (Fragen zu Perl-Modulen)

GoodFella

2009-05-19 21:46

User since
2007-01-09
192 Artikel
BenutzerIn
[default_avatar]

Hi,

ich versuche seit einigen Stunden, auf ein per USB angeschlossenes Gerät mit Perl zuzugreifen; dazu habe ich zuallererst den Beispielcode, welcher bei http://search.cpan.org/~gwadej/Device-USB-0.29/lib... dabei ist, auszuführen, erfolglos. Recherchen ergaben, dass dies daran liegt, dass überhaupt keine Devices bei den entsprechenden Bussen angezeigt werden:

Code: (dl )

1
2

#use Data::Dumper;
#print  Dumper $usb->get_busses;

ergibt:

Quote
---------- Perl ----------
$VAR1 = bless( {
'location' => 0,
'dirname' => 'bus-0',
'devices' => []
}, 'Device::USB::Bus' );
$VAR2 = bless( {
'location' => 1,
'dirname' => 'bus-1',
'devices' => []
}, 'Device::USB::Bus' );
$VAR3 = bless( {
'location' => 2,
'dirname' => 'bus-2',
'devices' => []
}, 'Device::USB::Bus' );
$VAR4 = bless( {
'location' => 3,
'dirname' => 'bus-3',
'devices' => []
}, 'Device::USB::Bus' );
$VAR5 = bless( {
'location' => 4,
'dirname' => 'bus-4',
'devices' => []
}, 'Device::USB::Bus' );
$VAR6 = bless( {
'location' => 5,
'dirname' => 'bus-5',
'devices' => []
}, 'Device::USB::Bus' );
found 6 busses

Output completed (0 sec consumed)

Ich habe USBLyzer laufen, welcher mir anzeigt, dass dies nicht stimmen kann. Ziel des ganzen ist, einem Pioner DMP555 Midi beizubringen, indem ein Realtime Konverter geschrieben wird.

Über irgendwelche Lösungsansätze wäre ich sehr dankbar.

OS: WinXP
Perl 5.8.8