Commit | Line | Data |
---|---|---|
b1620709 TM |
1 | #!/usr/bin/env perl |
2 | #This script processes output of goertzel and paints histogram | |
3 | ||
4 | use strict; | |
5 | use warnings; | |
6 | use Term::ReadKey; | |
7 | ||
8 | ||
9 | sub bar($$$) { | |
10 | my ($value,$max,$prefix) = @_; | |
11 | my ($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize(); | |
12 | $value = ($value/$max)*($wchar-length($prefix)); | |
13 | return $prefix."#" x $value." " x ($wchar-$value-length($prefix)); | |
14 | } | |
15 | ||
16 | sub trim($) { | |
17 | my $string = shift; | |
18 | $string =~ s/^\s+//; | |
19 | $string =~ s/\s+$//; | |
20 | return $string; | |
21 | } | |
22 | ||
23 | print "\033[H\033[2J"; | |
24 | ||
25 | my @header = split('\t', <STDIN>); | |
26 | ||
27 | while(<STDIN>) { | |
28 | my @values = split('\t', $_); | |
29 | my $i=0; | |
30 | print "\033[H"; | |
31 | foreach my $i (1..$#values) { | |
06619070 | 32 | print bar($values[$i],50,sprintf("%8s ",trim($header[$i])))."\n"; |
b1620709 TM |
33 | } |
34 | print "Time: ".$values[0]." \n"; | |
35 | print " \n"; | |
36 | } | |
37 | ||
38 | exit 0; |