ir-probe/clock-to-raw

   1 #!/usr/bin/perl
   2 # Convert debug output of Workshop Clock IR Receiver to our raw format
   3
   4 my ($key) = @ARGV or die;
   5 print $key;
   6 my $sep = "\t";
   7
   8 while (<STDIN>) {
   9         chomp;
  10         next if /^$/;
  11         s{^IR:\s*}{};
  12         my ($a, $b) = split /\s+/;
  13         print "$sep$a $b";
  14         $sep = ' ';
  15 }
  16 print "\n";