Parallelport unter Windows2000: bekomms nicht zum laufen :-( - #5346 (Perl/CGI)

Gast Gast

2005-07-31 04:52

Ich häng hier seid mehreren Stunden an dem Problem, mit Perl nicht an meinen LPT Port zu kommen.
Ich will die einzelnen Ports ein und ausschalten.
Lesen und schreiben.
Hab das damit probiert:
http://search.cpan.org/~scott....Port.pm
Ich bekomm das ganze aber nciht zum laufen :-(

die test.pm Datei funktioniert.
Benutze ich den Codefetzen:

Code: (dl )

        my $port = Device::ParallelPort->new();
        $port->set_bit(3,1);
        print $port->get_bit(3) . "\n";
        print ord($port->get_byte(0)) . "\n";
        $port->set_byte(0, chr(255));

kommt folgende Fehlermeldung:

Quote
L:\Page\cgi-bin>lpt.pl
Can't locate object method "new" via package "Device::ParallelPort" (perhaps you
forgot to load "Device::ParallelPort"?) at L:\Page\cgi-bin\lpt.pl line 1.

L:\Page\cgi-bin>

Also weiter mit folgendem Versucht:

Code: (dl )

        use Device::ParallelPort;
        my $port = Device::ParallelPort->new('auto:0');
        $port->set_bit(3,1);
        print $port->get_bit(3) . "\n";
        print ord($port->get_byte(0)) . "\n";
        $port->set_byte(0, chr(255));

Gibt Meldung:

Quote
L:\Page\cgi-bin>lpt.pl
Device::ParallelPort unabel to create driver auto (see Device::ParallelPort::drv
::auto for further information) - Device::ParallelPort::drv::auto (auto detect)
error
failed to load win32 - Can't locate Device/ParallelPort/drv/win32.pm in @INC (@I
NC contains: F:/Progs/System/Perl/lib F:/Progs/System/Perl/site/lib .) at (eval
2) line 2.
BEGIN failed--compilation aborted at (eval 2) line 2.
. Make sure you have loaded and installed Device::ParallelPort::drv::win32 from
CPAN. Install Device::ParallelPort::drv::(linux|parport|win32) and try again at
(eval 1) line 3
at L:\Page\cgi-bin\lpt.pl line 2

L:\Page\cgi-bin>

Also was mache ich?
Ich lad mir Device-ParallelPort-drv-win32-1.3 runter und kopiere die win32.pm ins entsprechende Ordner und schon kommen immer mehr Fehler:

Quote
L:\Page\cgi-bin>lpt.pl
Device::ParallelPort unabel to create driver auto (see Device::ParallelPort::drv
::auto for further information) - Device::ParallelPort::drv::auto (auto detect)
error
failed to load win32 - Can't locate Win32/API.pm in @INC (@INC contains: F:/Prog
s/System/Perl/lib F:/Progs/System/Perl/site/lib .) at F:/Progs/System/Perl/lib/D
evice/ParallelPort/drv/win32.pm line 49.
BEGIN failed--compilation aborted at F:/Progs/System/Perl/lib/Device/ParallelPor
t/drv/win32.pm line 49.
Compilation failed in require at (eval 2) line 2.
BEGIN failed--compilation aborted at (eval 2) line 2.
. Make sure you have loaded and installed Device::ParallelPort::drv::win32 from
CPAN. Install Device::ParallelPort::drv::(linux|parport|win32) and try again at
(eval 1) line 3
at L:\Page\cgi-bin\lpt.pl line 2

L:\Page\cgi-bin>

Das komische: die win32 Datei hat eine andere grösse, als die im eigentlichen lib Ordner.
Dann weiter die API.pm Datei organisiert. Aber man will mich immernoch nicht in ruhe lassen:

Quote
L:\Page\cgi-bin>lpt.pl
Device::ParallelPort unabel to create driver auto (see Device::ParallelPort::drv
::auto for further information) - Device::ParallelPort::drv::auto (auto detect)
error
failed to load win32 - Can't locate Win32/API/Type.pm in @INC (@INC contains: F:
/Progs/System/Perl/lib F:/Progs/System/Perl/site/lib .) at F:/Progs/System/Perl/
lib/Win32/API.pm line 31.
BEGIN failed--compilation aborted at F:/Progs/System/Perl/lib/Win32/API.pm line
31.
Compilation failed in require at F:/Progs/System/Perl/lib/Device/ParallelPort/dr
v/win32.pm line 49.
BEGIN failed--compilation aborted at F:/Progs/System/Perl/lib/Device/ParallelPor
t/drv/win32.pm line 49.
Compilation failed in require at (eval 2) line 2.
BEGIN failed--compilation aborted at (eval 2) line 2.
. Make sure you have loaded and installed Device::ParallelPort::drv::win32 from
CPAN. Install Device::ParallelPort::drv::(linux|parport|win32) and try again at
(eval 1) line 3
at L:\Page\cgi-bin\lpt.pl line 2

L:\Page\cgi-bin>

Also noch die Type.pm installiert,...

Quote
L:\Page\cgi-bin>lpt.pl
Device::ParallelPort unabel to create driver auto (see Device::ParallelPort::drv
::auto for further information) - Device::ParallelPort::drv::auto (auto detect)
error
failed to load win32 - Can't locate loadable object for module Win32::API in @IN
C (@INC contains: F:/Progs/System/Perl/lib F:/Progs/System/Perl/site/lib .) at F
:/Progs/System/Perl/lib/Device/ParallelPort/drv/win32.pm line 49
Compilation failed in require at F:/Progs/System/Perl/lib/Device/ParallelPort/dr
v/win32.pm line 49.
BEGIN failed--compilation aborted at F:/Progs/System/Perl/lib/Device/ParallelPor
t/drv/win32.pm line 49.
Compilation failed in require at (eval 2) line 2.
BEGIN failed--compilation aborted at (eval 2) line 2.
. Make sure you have loaded and installed Device::ParallelPort::drv::win32 from
CPAN. Install Device::ParallelPort::drv::(linux|parport|win32) and try again at
(eval 1) line 3
at L:\Page\cgi-bin\lpt.pl line 2

L:\Page\cgi-bin>

Nun weiss ich auch nich mehr was machen.
Wer kann mir zu so später Stunde noch helfen? :-(\n\n