X-Git-Url: https://git.realraum.at/?a=blobdiff_plain;f=rf433rcv%2Fpc%2Fdecode2.pl;fp=rf433rcv%2Fpc%2Fdecode2.pl;h=4d81139aa2f542f3d24249d7434be33a9fd5af54;hb=f505a1c37ea1c76897991f9882de765e34f0cc98;hp=0000000000000000000000000000000000000000;hpb=02293cb00639b97ca422619ee15f5981a5b3ffd0;p=svn42.git

diff --git a/rf433rcv/pc/decode2.pl b/rf433rcv/pc/decode2.pl
new file mode 100755
index 0000000..4d81139
--- /dev/null
+++ b/rf433rcv/pc/decode2.pl
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+use strict;
+print $ARGV[2]-$ARGV[1], "samples\n";
+my @data =  split /,/,<>;
+my @samples = $ARGV[0]..$ARGV[1];
+print join ',', @data[@samples];
+print "\n";