to github

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

diff --git a/rf433rcv/pc/decode2.pl b/rf433rcv/pc/decode2.pl
index 4d81139..70ce6c2 100755 (executable)
--- a/rf433rcv/pc/decode2.pl
+++ b/rf433rcv/pc/decode2.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 use strict;
-print $ARGV[2]-$ARGV[1], "samples\n";
-my @data =  split /,/,<>;
+print STDERR $ARGV[2]-$ARGV[1], "samples\n";
+my @data =  split //,<>;
 my @samples = $ARGV[0]..$ARGV[1];
-print join ',', @data[@samples];
-print "\n";
+print join '',@data[@samples];
+print STDERR "\n";