TODO: header option

[barcat.git] / barcat

diff --git a/barcat b/barcat
index 7da22597daea388d539e81b883f56de60bfac278..05b7cb182eada1d57ea6cd2d64e729796eba4de7 100755 (executable)
--- a/barcat
+++ b/barcat
@@ -42,6 +42,7 @@ GetOptions(\%opt,
                        " (range expected)\n"
                );
        },
+       'header!',
        'markers|m=s',
        'graph-format=s' => sub {
                $opt{'graph-format'} = substr $_[1], 0, 1;
@@ -192,6 +193,8 @@ sub sival {
        );
 }
 
+say sprintf ' %*s-+%*s-+', $len, $minval, $size * ($maxval - $minval) - 3, $maxval if $opt{header};
+
 while ($nr <= $#lines) {
        $nr >= $opt{hidemax} and last if defined $opt{hidemax};
        my $val = $values[$nr];