- or download this
void interruptHandler();
int setInterrupt(int pin, int edge, char *callback);
...
void
interruptHandler()
- or download this
sub set_interrupt {
shift if @_ == 4;
my ($pin, $edge, $callback) = @_;
setInterrupt($pin, $edge, $callback);
}
- or download this
use warnings;
use strict;
...
print "pin 27 edge rise callback...\n";
# do other stuff
}