0と1の欠片 : perlからwiringPiを使う

あんまり先例がなくて苦労した。

インストール

wiringPi-Perlの他にWiringPiそのものも必要らしい。

$ git clone git://github.com/WiringPi/WiringPi-Perl.git
$ cd WiringPi-Perl/ 
$ git clone git://github.com/WiringPi/WiringPi.git

build.shというスクリプトがあるが、これをこのまま実行してもエラーになる。

$ ./build.sh 
wiringpi_wrap.c:730:20: fatal error: EXTERN.h: No such file or directory
compilation terminated.
gcc: error: wiringpi_wrap.o: No such file or directory

build.shを書き換える。
変更前


gcc -fpic -c -Dbool=char -I/usr/lib/perl/5.14.2/CORE wiringpi_wrap.c WiringPi/wiringPi/wiringPi.c -D_GNU_SOURCE
gcc -shared wiringPi.o wiringpi_wrap.o -o wiringpi.so

変更後

gcc -fpic -c -Dbool=char -I/usr/lib/perl/5.10.1/CORE wiringpi_wrap.c WiringPi/wiringPi/wiringPi.c -D_GNU_SOURCE
gcc -shared wiringPi.o wiringpi_wrap.o -o wiringpi.so

wiringSerial.h をコピーする。

$cd WiringPi/wiringPi/
$cp wiringSerial.h serial.h

これでコンパイルが通った。

perlからLEDを点灯してみる。

WiringPiの関数がそのまま使える。
サンプル


#!/usr/bin/perl

use strict;
use warnings;

use lib qw(../WiringPi-Perl/ );
use wiringpi;

use constant {
        OUTPUT=>1,
        INPUT=>0,
        HIGH=>1,
        LOW=>0
};

if( wiringpi::wiringPiSetup()==-1 ){
        die 1;
}

wiringpi::pinMode(0,OUTPUT);

wiringpi::digitalWrite(0,1);

これをroot権限で実行するとLEDが点灯する