}
}
chop $seq;
- print STDERR "$seq\n";
+ # print "$seq\n";
+ my $bitcount=0;
+ my @binarydata;
+ for my $bits (reverse split /,/,$seq)
+ {
+ $binarydata[int($bitcount/8)]<<=1;
+ $binarydata[int($bitcount/8)]|=$bits;
+ $bitcount++;
+ }
+ $binarydata[int($bitcount/8)]<<= 7 - ($bitcount % 8);
+ 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");
}
+