},
) or exit 64; # EX_USAGE
-$opt{width} ||= $ENV{COLUMNS} || qx(tput cols) || 80;
+$opt{width} ||= $ENV{COLUMNS} || qx(tput cols) || 80 unless $opt{spark};
$opt{color} //= -t *STDOUT; # enable on tty
$opt{'graph-format'} //= '-';
$opt{trim} *= $opt{width} / 100 if $opt{trimpct};
and $. % $opt{interval} == 0;
}
+if ($opt{'zero-missing'}) {
+ push @values, (0) x 10;
+}
+
$SIG{INT} = 'DEFAULT';
sub color {
$opt{palette}->[ $rel * ($#{$opt{palette}} - 1) + 1 ];
if ($opt{spark}) {
+ say '' if $opt{width} and $nr and $nr % $opt{width} == 0;
print color($color), $opt{spark}->[
!$val ? 0 : # blank
$val == $order[0] ? -1 : # max
if ($opt{hidemin} or $opt{hidemax}) {
$opt{hidemin} ||= 1;
$opt{hidemax} ||= @lines;
- printf '%s of ', sum(@values[$opt{hidemin} - 1 .. $opt{hidemax} - 1]) // 0;
+ printf '%s of ', sum(grep {length} @values[$opt{hidemin} - 1 .. $opt{hidemax} - 1]) // 0;
}
if (@order) {
my $total = sum @order;
- printf '%s total', color(1) . $total . color(0);
- printf ' in %d values', scalar @values;
+ printf '%s total', color(1) . sprintf('%.8g', $total) . color(0);
+ printf ' in %d values', scalar @order;
+ printf ' over %d lines', scalar @lines if @order != @lines;
printf(' (%s min, %s avg, %s max)',
color(31) . $order[-1] . color(0),
color(36) . (sprintf '%*.*f', 0, 2, $total / @order) . color(0),