add toggle pin

diff --git a/gpio.pl b/gpio.pl
index 9b97bc5..95425a3 100755 (executable)
--- a/gpio.pl
+++ b/gpio.pl
@@ -23,6 +23,14 @@ foreach (@gpio) {
 }
 
 my $cmd = <STDIN>;
+chomp $cmd;
+if ( $cmd =~ m/^(\d+)$/ ) {
+       my $v = `gpio -g read $1`;
+       warn "# pin $1 ", $v;
+       $v ^= 1;
+       system "gpio -g write $1 $v";
+}
+
 
 } #/while