parallel port control in perl

[001]

Hello,
I am newbie in perl. I am currently working on a project to access the parallel port of a pc in perl on a linux operating system.

I really do not know where to start. Could anyone help me with useful links, books, resources..etc that could be of help in accessing the parallel port using perl. I need this urgently if i am to finish my project on time.

Thanks

001

 

[JankoMuzyk]

Why you don't use google first?
see what google returns for "parallel port access in perl" :


h**p://search.cpan.org/~scott/Device-ParallelPort-1.00/lib/Device/ParallelPort.pm
h**p://linux.dd.com.au/quest/os-perl/parallelport/
h**p://www.lvr.com/jansfaq.htm

Q: How can I access ports using Perl?

A: (from Ron Glick)

You must have the Win32::API module (available at h**p://www.cpan.org) installed.

use Win32::API; #load API module to interface DLL's
$GetPortVal= new Win32::API("inpout32", "Inp32", , I); #import Inp32 from DLL
$SetPortVal= new Win32::API("inpout32", "Out32", [I,I], I); #import Out32 from DLL
$input= $GetPortVal->Call(0x378) & 255; #get and display current value of address 378 hex print "$input\n";
$return=$SetPortVal->Call(0x378,35); #set pins 2,3,7
$input= $GetPortVal->Call(0x378) & 255; #get and display updated value of address 378 hex
print "$input\n";

 

[001]

thanks, it is not comprehensive enough.i dont just want to use a module i want to write one that can access the port.

001