X-Git-Url: https://git.realraum.at/?p=svn42.git;a=blobdiff_plain;f=rf433rcv%2Fpc%2Fsample2data.pl;fp=rf433rcv%2Fpc%2Fsample2data.pl;h=0000000000000000000000000000000000000000;hp=57afafefd406bd2df234db93d37b96478b4aedb5;hb=fff7d88ae580a68519a3b9f590a2cf9cce21ef8b;hpb=5b00dab1a7d2ac2d8a593f0bd6e85a7194e2c9bd

diff --git a/rf433rcv/pc/sample2data.pl b/rf433rcv/pc/sample2data.pl
deleted file mode 100755
index 57afafe..0000000
--- a/rf433rcv/pc/sample2data.pl
+++ /dev/null
@@ -1,28 +0,0 @@
-#!/usr/bin/perl
-use strict;
-my @input= split //,<>;
-
-my $zero=0;
-my $one=0;
-my $last=0;
-my $timebase;
-for my $current (@input)
-{
-  if (($current != $last) and ($current == 1) )
-  {
-    print (($zero>$one)?"0":"1") if $one; #skip first=sync
-    $timebase = (($zero>$one)?$one:$zero);
-    #print "$zero,$one\n";
-    $zero=0;
-    $one=0;
-  }
-  if ($current)
-  {
-    $one++ 
-  } else { 
-    $zero++ 
-  }
-  $last=$current;
-}
-#print "\n";
-warn "Base $timebase\n";