From 36d02c1227374b107aa351388c0b5e3df65e4fa9 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Wed, 29 Apr 2020 13:01:31 +0200 Subject: Remove most unused perl scripts and modules --- bin/mimosawatch | 24 ------------------------ 1 file changed, 24 deletions(-) delete mode 100755 bin/mimosawatch (limited to 'bin/mimosawatch') 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]); - } - } -} -- cgit v1.2.3