0a8ccb37ba437a1a34712d4fdbd59386b82e92d5
2 #This script processes output of goertzel and paints histogram
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));
23 print "\033[H\033[2J";
25 my @header = split('\t', <STDIN
>);
28 my @values = split('\t', $_);
31 foreach my $i (1..$#values) {
32 print bar
($values[$i],50,sprintf("%8s ",trim
($header[$i])))."\n";
34 print "Time: ".$values[0]." \n";
This page took 0.30431 seconds and 3 git commands to generate.