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
/
decode2.pl
diff --git a/rf433rcv/pc/decode2.pl
b/rf433rcv/pc/decode2.pl
new file mode 100755
(executable)
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";