diff options
Diffstat (limited to 'bin/mimosawatch')
-rwxr-xr-x | bin/mimosawatch | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/bin/mimosawatch b/bin/mimosawatch deleted file mode 100755 index 88d34a3..0000000 --- a/bin/mimosawatch +++ /dev/null @@ -1,24 +0,0 @@ -#!/usr/bin/env perl - -use strict; -use warnings; -use 5.020; - -use File::Slurp qw(slurp); -use IO::Handle; - -our $VERSION = '0.00'; - -STDOUT->autoflush(1); - -while (sleep(1)) { - if ( -e '/tmp/mimosa/mimosa_scale_100000.tmp' ) { - my $raw_data = slurp('/tmp/mimosa/mimosa_scale_100000.tmp'); - my @data = map { $_ >> 8 } unpack('L*', $raw_data); - my @buzzer = map { $_ & 0x0f } unpack('L*', $raw_data); - - if (@data > 8) { - printf("\r\e[2K" . ('%8d ' x 8), @data[-8 .. -1]); - } - } -} |