ir-probe/decode-sony

   1 #!/usr/bin/perl
   2 use common::sense;
   3
   4 my %types;
   5
   6 while (<>) {
   7         chomp;
   8         my ($button, $timings) = split /\t/;
   9         my @timings = split /\s+/, $timings;
  10         pop @timings;
  11         my $bit = 1;
  12         my @out = ();
  13         for my $t (@timings) {
  14                 my $out = "<$bit:$t>";
  15                 if ($bit) {
  16                         if ($t >= 2000 && $t <= 3000) {
  17                                 $out = "^";
  18                         } elsif ($t >= 1000 && $t <= 1500) {
  19                                 $out = "1";
  20                         } elsif ($t >= 500 && $t <= 900) {
  21                                 $out = "0";
  22                         }
  23                 } else {
  24                         if ($t >= 500 && $t <= 700) {
  25                                 $out = ".";
  26                         } elsif ($t >= 20000) {
  27                                 $out = " ";
  28                         }
  29                 }
  30                 $bit = 1 - $bit;
  31                 push @out, $out;
  32                 push @{$types{$out}}, $t;
  33         }
  34         print $button, "\t", join("", @out), "\n";
  35 }
  36
  37 print "\n# Median timings [μs]\n\n";
  38 for my $k (sort keys %types) {
  39         my @v = sort @{$types{$k}};
  40         print "$k\t", $v[@v/2], "\n";
  41 }