Zugriff auf Com Port Schnittstelle (Parallel) (Allgemeines zu Perl)

Gast Gast

2006-10-12 16:27

Hallo nochmal hier Gast86,

erstmal Danke an alle die mir geantwortet haben.

So nun habe noch eine Frage, ich habe von einen mitarbeiter gehört(mehr wollte er mir nicht sagen) das ein zugriff auf ein Parallel Port viel einfacher sein soll als wie beim seriellen Port,es soll ein sehr kleines script (d.h. paar zeilen befehle) geben, mit dem man auf die schnittstelle zugreift.

Quote
"Meine Aufgabe ist einfach nur mit Hilfe eines Perls auf eine Com Port Schnittstelle zuzugreifen, an sich an derschnittstelle befindenene Glühbirne zu leuchten zum bringen."

Wie soll denn das script aussehen, und wieso soll denn ein großer script unterschied zwischen paralle und serielle port geben?

PS. Ich arbeit auf einem Windows Rechner aber unser Server läuft über Linux.

havi

2006-10-12 16:45

User since
2003-08-04
2036 Artikel
BenutzerIn

Ich wuerde vorschlagen das du dich bitte registrierst, da sonst
genauso so etwas passiert wie gerade eben (neuer Thread)
und das Forum so unuebersichtlich wird.

Vielen Dank!

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

Ispartali86

2006-10-12 16:50

User since
2006-10-12
27 Artikel
BenutzerIn
[default_avatar]

[quote=havi,12.10.2006, 14:45]Ich wuerde vorschlagen das du dich bitte registrierst, da sonst
genauso so etwas passiert wie gerade eben (neuer Thread)
und das Forum so unuebersichtlich wird.

Vielen Dank![/quote]
habe ich auch gemacht, hatte erst versucht mich zu registieren dann zu posten aber ging nicht es kam immer zur eine Fehler Meldung, aber jetzt läufts wieder -> bin eingeloggt.

Danke fürs Tip

renee

2006-10-12 19:12

User since
2003-08-04
14371 Artikel
ModeratorIn

Es gibt auch CPAN:

Device::ParallelPort. Schau's Dir mal an, ob es Dir hilft...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Ispartali86

2006-10-13 12:42

User since
2006-10-12
27 Artikel
BenutzerIn
[default_avatar]

Danke für deine Antwort renee.

Ich habe das Code von der Seite ausprobiert aber es kommt immer zu einem Fehler. Ich habe auch in die Klammer 'linux' oder 'auto:0' eingegeben aber trotzdem falsch. ---> Wieso falsch?

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));

Quote
Can't locate object method "new" via package "Device::ParallelPort" (perhaps you forgot to load "Device::ParallelPort"?) at tcom.pl line 3.

>>>>>Ich arbeite auf einen Linux-Server<<<<

renee

2006-10-13 13:03

User since
2003-08-04
14371 Artikel
ModeratorIn

Hast Du auch ein

Code: (dl )

use Device::ParallelPort

in Deinem Code? Und hast Du das Modul Wiki:

installiert?

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Ispartali86

2006-10-18 12:50

User since
2006-10-12
27 Artikel
BenutzerIn
[default_avatar]

Hallo nun habe ich das Modul installiert aber habe immer noch fehlermeldungen

Quote
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 parport - Can't locate Device/ParallelPort/drv/parport.pm in @INC (@INC contains: /usr/lib/perl5/5.8.6/i586-linux-thread-multi /usr/lib/perl5/5.8.6 /usr/lib/perl5/site_perl/5.8.6/i586-linux-thread-multi /usr/lib/perl5/site_perl/5.8.6 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.6/i586-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.6 /usr/lib/perl5/vendor_perl .) at (eval 2) line 2.
BEGIN failed--compilation aborted at (eval 2) line 2.
. Make sure you have loaded and installed Device::ParallelPort::drv::parport from CPAN. Install Device::ParallelPort::drv::(linux|parport|win32) and try again at (eval 1) line 3
at tcom.pl line 4

Das test-code habe ich von der CPAN seite übernommen.

Code: (dl )

#!/usr/bin/perl

use Device::ParallelPort;
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));

Was habe ich diesmal falsch gemacht, und wohin muss dieser Modul genau istalliert werden, ich hab es in den Ordner

Quote
linux:/usr/lib/perl5/5.8.6/ParallelPort/Device-ParallelPort-1.00 #

kopiert ist das Falsch?

renee

2006-10-18 13:04

User since
2003-08-04
14371 Artikel
ModeratorIn

Hast Du den Wiki-Artikel gelesen? Darin steht, dass ein einfaches Kopieren häufig die falsche Entscheidung ist.

Lade Dir das gepackte Archiv von CPAN runter, entpacke es und mache den 4-Zeiler:

Code: (dl )

perl Makefile.PL
make
make test
make install

\n\n

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

nepos

2006-10-18 13:36

User since
2005-08-17
1420 Artikel
BenutzerIn

Oder richte dir CPAN ein, dann kannst du Module ueber

Code: (dl )

install <Modulname>

in der CPAN-Shell installieren. Dabei kannst du dir auch eventuell noetige andere Module noch automatisch mitinstallieren lassen.

Ispartali86

2006-10-18 13:55

User since
2006-10-12
27 Artikel
BenutzerIn
[default_avatar]

Ich habe mit

"wget http://search.cpan.org/CPAN....z"

das Modul ins Verzeichnis "linux:/usr/lib/perl5/5.8.6" runtergeladen.

Dann habe ich es entpackt und die 4 Schritt befolgt.
Also

- perl Makefile:PL
- make
- make Test
- make install

daraufhin habe ich meinen Test-Script ausgeführt.

Anschließen kam die Fehlermeldung, d.h. ich habe es nicht in irgend einen Verzeichnis kopiert sondern die vorgeschriebene Schritte gefolgt.

Deswegen habe ich ja nochmal gefragt in welchen Ordner es kopiert werden muss, weil es normaler wiese automatisch in den richtigen pfad kopiert wird.

Vielen Dank für deine Antworte