projects
/
svn42.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
neerly working version of rf433rcv
[svn42.git]
/
rf433rcv
/
pc
/
decode.pl
diff --git
a/rf433rcv/pc/decode.pl
b/rf433rcv/pc/decode.pl
index
fc7f92e
..
8a0a4d6
100755
(executable)
--- a/
rf433rcv/pc/decode.pl
+++ b/
rf433rcv/pc/decode.pl
@@
-55,14
+55,18
@@
if (my $delemiter = $ARGV[0])
# print "$seq\n";
my $bitcount=0;
my @binarydata;
# print "$seq\n";
my $bitcount=0;
my @binarydata;
- for my $bits (split /,/,$seq)
+ for my $bits (reverse split /,/,$seq)
{
$binarydata[int($bitcount/8)]<<=1;
$binarydata[int($bitcount/8)]|=$bits;
$bitcount++;
}
{
$binarydata[int($bitcount/8)]<<=1;
$binarydata[int($bitcount/8)]|=$bits;
$bitcount++;
}
- $binarydata[int($bitcount/8)]<<= 7 - ($bitcount % 8);
+ $binarydata[int($bitcount/8)]<<= 8 - ($bitcount % 8) if $bitcount % 8;
my @chars = map { chr($_) } @binarydata;
print STDERR join '',@chars;
my @chars = map { chr($_) } @binarydata;
print STDERR join '',@chars;
+# print STDERR "\ns\x04"; # send 4 times
+# print STDERR chr(8-($bitcount % 8)) if $bitcount % 8;
+ print "$bitcount total, offset ".($bitcount % 8)." bits\n";
+ print ($bitcount/8 ," bytes (must be <= 63)\n");
}
}