Help for this page

Select Code to Download


  1. or download this
    cc -c   -D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN -fno-s
    +trict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE
    +_OFFSET_BITS=64 -O2   -DVERSION=\"1.00\" -DXS_VERSION=\"1.00\" -fPIC 
    +"-I/usr/lib/perl/5.8/CORE"   linux.c
    In file included from linux.xs:2:
    /usr/lib/perl/5.8/CORE/perl.h:420:24: error: sys/types.h: No such file
    + or directory
    ...
    In file included from /usr/lib/perl/5.8/CORE/perl.h:2120,
                     from linux.xs:2:
    /usr/lib/perl/5.8/CORE/handy.h:136:25: error: inttypes.h: No such file
    + or directory
    
  2. or download this
    #!/usr/bin/perl
    use Device::ParallelPort;
    use Device::ParallelPort::drv::linux;
    ...
    my $parport = Device::ParallelPort->new('linux');
    
    $parport->set_byte(0, char(255));