rfcmd.pl

[magho]

Hej. Jag skrev en strippad rfcmd för enbart Nexa i perl som går att köra i microperl på Openwrt. Tänkte att någon annan kanske kan få användning av det. stty behövs men går kompilera in i busybox.
Usage t.ex: rfcmd.pl /dev/ttyUSB0 NEXA G 4 1
/Magnus H

#!/usr/bin/microperl
$uart = $ARGV[0];
$txstring = unpack("b*", pack("C", ($ARGV[3]-1)*16+unpack("C", $ARGV[2])-65))."011".$ARGV[4];
$txstring =~ s|0| a a|g;
$txstring =~ s|1| aa |g;
system ("stty -F $uart 4800");
open (FH, "> $uart");
print FH "S$txstring }+";
close FH;