KEMBAR78
Fun with Raspberry PI (and Perl) | PPTX
Fun with
Raspberry PI
GPIO
GPIO
General-purpose input/output
1/0
saveamsterdam.com
Linux
Perl 5.20+
libbcm2835
Device::BCM2835::gpio_write($gpio, 1);
Device::BCM2835::gpio_write($gpio, 0);
Device::BCM2835::gpio_set($gpio);
Device::BCM2835::gpio_clr($gpio);
say Device::BCM2835::gpio_lev($gpio);
5V vs 3.3V
5V vs 3.3V
Dimmer
Blinks!
Is Perl slow?
Trying C
100x faster
Blinks!
???
!!!
Interrupts!
printf("Disabling interruptsn");
disable_interrupts();
pidelay(3000000);
printf("Enabling interruptsn");
enable_interrupts();
printf("Disabling interruptsn");
disable_interrupts();
pidelay(3000000);
printf("Enabling interruptsn");
enable_interrupts();
printf("Disabling interruptsn");
disable_interrupts();
pidelay(3000000);
printf("Enabling interruptsn");
enable_interrupts();
Works!
But no network
LED
Cheap,
use many
Linux + Perl,
easy to use!
use Perl or die;