paralel port kontrol dalam perl

[001]

Halo,
Saya newbie di perl.Saat ini saya bekerja pada sebuah proyek untuk mengakses port paralel dari sebuah pc di perl pada sistem operasi linux.

Aku benar-benar tidak tahu harus mulai dari mana.Mungkin orang membantu saya dengan link yang berguna, buku, dll .. sumber daya yang dapat membantu dalam mengakses port paralel menggunakan perl.Saya mau ini segera jika saya pm untuk menyelesaikan proyek tepat waktu.

Terima kasih

001

 

[JankoMuzyk]

Mengapa anda tidak menggunakan google dulu?
melihat apa google kembali untuk "akses port paralel di perl":h ** p: / / search.cpan.org / ~ scott/Device-ParallelPort-1.00/lib/Device/ParallelPort.pm
h ** p: / / linux.dd.com.au / pencarian / os-perl / parallelport /
h ** p: / / www.lvr.com / jansfaq.htm

T: Bagaimana saya bisa mengakses port menggunakan Perl?

A: (dari Ron Glick)

Anda harus memiliki Win32:: API modul (tersedia di h ** p: / / www.cpan.org) diinstal.

menggunakan Win32:: API; # load modul untuk antarmuka API DLL
$ GetPortVal = new Win32:: API ( "inpout32", "Inp32", [aku], I); # impor Inp32 dari DLL
$ SetPortVal = new Win32:: API ( "inpout32", "Out32", [aku, saya], saya); # impor Out32 dari DLL
$ input = $ GetPortVal-> Call (0x378) & 255; # mendapatkan dan menampilkan nilai saat ini alamat 378 heksa print "$ input \ n";
$ return = $ SetPortVal-> Panggil (0x378, 35); # set pin 2,3,7
$ input = $ GetPortVal-> Call (0x378) & 255; # mendapatkan dan menampilkan nilai diperbaharui alamat hex 378
print "$ input \ n";

 

[001]

terima kasih, tidak komprehensif dont enough.i hanya ingin menggunakan modul saya ingin menulis yang dapat mengakses pelabuhan.

001