datenformat vereinheitlicht

[svn42.git] / rf433rcv / pc / decode.pl

diff --git a/rf433rcv/pc/decode.pl b/rf433rcv/pc/decode.pl
index 685a283..e90f345 100755 (executable)
--- a/rf433rcv/pc/decode.pl
+++ b/rf433rcv/pc/decode.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 use strict;
-my @data =  split /,/,<>;
+my @data =  split //,<>;
 
 my @statistics;
 
@@ -61,7 +61,7 @@ if (my $delemiter = $ARGV[0])
     $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;
 #  print STDERR "\ns\x04"; # send 4 times