projects
/
svn42.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
raspberry kiosk
[svn42.git]
/
rf433rcv
/
pc
/
decode2.pl
diff --git
a/rf433rcv/pc/decode2.pl
b/rf433rcv/pc/decode2.pl
index
08318e9
..
70ce6c2
100755
(executable)
--- a/
rf433rcv/pc/decode2.pl
+++ b/
rf433rcv/pc/decode2.pl
@@
-1,7
+1,7
@@
#!/usr/bin/perl
use strict;
print STDERR $ARGV[2]-$ARGV[1], "samples\n";
-my @data = split /,/,<>;
+my @data = split //,<>;
my @samples = $ARGV[0]..$ARGV[1];
print join '',@data[@samples];
print STDERR "\n";