histogram: man page updated.

This commit is contained in:
Ole Tange 2014-03-16 21:44:08 +01:00
parent c326746053
commit e900b8c31a
2 changed files with 228 additions and 90 deletions

View file

@ -6,8 +6,9 @@ histogram - make and display a histogram on the command line
=head1 SYNOPSIS
B<histogram> [--delimiter <delim>|-d <delim>] [--pre|--post]
[--log|-l] [--values-as-headers|-t] [--values-before-headers|-b] <list of numbers>
B<histogram> [--delimiter <delim>|-d <delim>]
[--log|-l] [--input <format>|-i <format>]
[--format <format>|-f <format>] [<list of numbers>]
B<cat> <file with numbers> | B<histogram> [options]
@ -27,15 +28,15 @@ Line with CSV: B<histogram> -d , 1,1.01,3.1
=item *
Line with white space separated values: B<histogram> 1 1.01 3.1
Line with white space separated values: B<histogram> -i v 1 1.01 3.1
=item *
Line with white space separated headers+values: B<histogram> a 1 b 1.01 c 3.1
Line with white space separated headers+values: B<histogram> 'a 1' 'b 1.01' 'c 3.1'
=item *
One value per line: (echo 1; echo 1.01; echo 3.1) | B<histogram>
One value per line: (echo 1; echo 1.01; echo 3.1) | B<histogram> -i v
=item *
@ -50,8 +51,6 @@ One comma separated header+value per line: (echo a,1; echo b,1.01; echo c,3.1) |
=head1 OPTIONS
=over 9
=item B<--delimiter> I<delim>
=item B<-d> I<delim>
@ -66,89 +65,152 @@ Use I<delim> as delimiter between elements.
Take the logarithm of all values.
=item B<--pre>
=item B<--input> I<input_format>
Put the header before the bar.
Give format of input. B<histogram> will try to guess the input format
based on different heuristics. If it guesses wrong, you can override
it with B<--input>. I<input_format> is a string consisting of:
See also: B<--post>
=over 13
=item Z<>B<h>
=item B<--post>
This column is a header.
Put the header after the bar.
=item Z<>B<H>
See also: B<--pre>
The rest of the line is a header.
=item Z<>B<v>
=item B<--values-as-headers>
This column is a value.
=item B<-t>
=item Z<>B<i>
Use the numbers as headers.
This column is ignored.
=item Z<>B<other char>
=item B<--values-before-headers>
This char is a delimiter
=item B<-b>
=back
Normally headers are given before the
value. B<--values-before-headers> looks the header after the value.
If there are no delimiter is given, it will be guessed.
Examples:
=over 13
=item B<--input h,v>
Column 1 is header, column 2 is value, separated by B<,>.
=item B<--input hv>
Column 1 is header, column 2 is value, guess separator.
=item B<--input ihv>
Column 1 is ignored, column 2 is header, column 3 is value, guess separator.
=back
=item B<--format> I<output_format>
Give format of output. I<output_format> is a string consisting of:
=over 13
=item Z<>B<b>
The bar.
=item Z<>B<c>
Percent of total outside bar.
=item Z<>B<C>
Percent of total inside bar.
=item Z<>B<h>
Header outside bar.
=item Z<>B<H>
Header inside bar.
=item Z<>B<p>
Percent of max outside bar.
=item Z<>B<p>
Percent of max inside bar.
=item Z<>B<v>
Value outside bar.
=item Z<>B<V>
Value inside bar.
=back
A format must contain 'b'. Default is VbHP.
=back
(echo 150 hundredfifty;echo 30 thirty;echo 3 three;echo 6 six)|./histogram --format Hbcp
(echo 0 zero; echo 50 fifty; echo 150 hundredfifty;echo 130 hundredthirty;echo 3 three;echo 6 six)|./histogram --format HbHCP
ls -l|tail -n +2| ./histogram --input iiiiviiih
=head1 EXAMPLE: file sizes in current dir
=head1 EXAMPLE: git: number of commits in the last year, by author
git shortlog -s --after="1 years" | histogram -b
=head1 EXAMPLE: git: number of commits per day
git log --format=%ai | cut -d\ -f1 | uniq -c | histogram -b --post
=head1 EXAMPLE: git: commits by hour of the day
git log --format=%ai | perl -pe 's/.* (\d\d):.*/$1/' | sort -n | uniq -c | histogram -b
=head1 EXAMPLE: git: commits by day of the week
git log --format=%ad |cut -d\ -f1 | sort -n | uniq -c | histogram -b
ls -l|tail -n +2| histogram --input iiiiviiih
=head1 EXAMPLE: run time of processes
ps -e | tail -n +2 | perl -pe 's/.*(\d\d):(\d\d):(\d\d) (.*)/($1*3600+$2*60+$3)." $4"/e' | histogram -b -l
ps -e | tail -n +2 | perl -pe 's/.*(\d\d):(\d\d):(\d\d) (.*)/($1*3600+$2*60+$3)." $4"/e' | sort -n | histogram
=head1 EXAMPLE: Letter frequencies in a text file
=head1 EXAMPLE: git statistics
cat file | perl -ne 'print map {uc($_),"\n"} split//,$_' | sort | uniq -c | histogram -b
Number of commits and percentage in the last year, by author:
git shortlog -s --after="1 years" | histogram --input vH --format VbHC
=head1 EXAMPLE: Number of HTTP requests per day
Number of commits per day:
cat apache.log | cut -d\ -f4 | cut -d/ -f 1,2 | uniq -c | histogram -b
git log --format=%ai | cut -d\ -f1 | uniq -c | histogram
Number of commits by hour of the day:
=head1 EXAMPLE: Beijing Air Quality Index
git log --format=%ai | perl -pe 's/.* (\d\d):.*/$1/' | sort -n | uniq -c | histogram
curl -s https://twitter.com/statuses/user_timeline/15527964.rss | grep /description | perl -nle 'print "$1 $2" if /(\S+ \S+); PM2.5;[^;]+; (\d+)/' | histogram
Number of commits by day of the week:
git log --format=%ad |cut -d\ -f1 | sort -n | uniq -c | histogram
=head1 EXAMPLE: Visualize ping times
ping -i .2 -c 10 google.com | grep -oP 'time=\K\S*' | histogram -t --post
ping -ni .2 -c 10 google.com | grep -oP 'time=\K\S*' | histogram
=head1 EXAMPLE: Visualize filesize inside a directory
=head1 EXAMPLE: Visualize disk usage
du -s * | histogram -b
du -s * | histogram --format VbHC
=head1 EXAMPLE: Number of HTTP requests per day
cat access.log | cut -d\ -f4 | cut -d: -f 1 | uniq -c | histogram
=head1 EXAMPLE: Letter frequencies in a text file
cat file | perl -ne 'print map {uc($_),"\n"} split//,$_' | sort | uniq -c | histogram
=head1 BUGS
@ -163,7 +225,7 @@ Report bugs to <bug-parallel@gnu.org>.
=head1 AUTHOR
Copyright (C) 2012 Ole Tange, http://ole.tange.dk and Free
Copyright (C) 2012,2013,2014 Ole Tange, http://ole.tange.dk and Free
Software Foundation, Inc.
@ -286,23 +348,16 @@ B<cut>(1)
=cut
# histogram -d , a1,b2,c3 d4,5,e76
# histogram 1 2 3
# histogram a:1 b:2 c:3
# histogram "a a":1 b:2 c:3
# histogram "a a" 1 b 2 c 3
# (echo a a 1; echo b 2; echo c 3) | histogram
# histogram --post aaaaaaaaaaa1 b10
# seq 10 | histogram -t --pre
use strict;
use Getopt::Long;
Getopt::Long::Configure("bundling","require_order");
GetOptions
("delimiter|d=s" => \$opt::delimiter,
"log" => \$opt::log,
"input|i=s" => \$opt::input,
"format|f=s" => \$opt::format,
"debug|D" => \$opt::debug,
) || die_usage();
my @raw;
@ -313,21 +368,25 @@ if($#ARGV != -1) {
chomp @raw;
}
my ($max_value_length, $max_header_length, $max_value_header_length, $header_ref, $value_ref);
if(not defined $opt::input) {
# Guess opt::input
my $delimiter = guess_delimiter(@raw);
if($opt::delimiter) {
# override guessed delimiter if given
$delimiter = $opt::delimiter;
} elsif(defined $delimiter) {
} else {
# Guess opt::input
$delimiter = guess_delimiter(@raw);
}
if(defined $delimiter) {
# guess format: (v delimiter h) or (h delimiter v)
($max_value_length, $max_header_length, $max_value_header_length, $header_ref, $value_ref) =
parse_raw_given_opt_input('\s*v'.$delimiter."h",@raw);
parse_raw_given_opt_input("v".$delimiter."h",@raw);
} else {
# guess format: v
($max_value_length, $max_header_length, $max_value_header_length, $header_ref, $value_ref) =
parse_raw_given_opt_input('\s*v',@raw);
parse_raw_given_opt_input("v",@raw);
$header_ref = $value_ref;
$max_value_length = $max_header_length;
$max_value_header_length = $max_value_length + $max_header_length;
@ -342,8 +401,8 @@ if(not defined $opt::input) {
($max_value_length, $max_header_length, $max_value_header_length, $header_ref, $value_ref) =
parse_raw_given_opt_input($opt::input, @raw);
}
my $max_value = max(@$value_ref);
my $total_value = sum(@$value_ref);
my $max_value = undef_as_zero(max(@$value_ref));
my $total_value = undef_as_zero(sum(@$value_ref));
sub parse_raw_given_opt_input {
my ($input,@raw) = @_;
@ -355,24 +414,27 @@ sub parse_raw_given_opt_input {
# \S+\,(\S+)\;(\S+)
$input =~ /v.*v/ and die("Only one v is allow in --input");
$input =~ /h.*h/ and die("Only one h is allow in --input");
if($input =~ /^[ivh]+$/) {
if($input =~ /^[Hivh]+$/) {
# No delimiters => '\s+' (whitespace)
$input = join('\s+', split//, $input);
}
# strip prepending white space in input to avoid splitting on that
for(@raw) { s/^\s+//; }
my %part_map = (
"h" => '(\S*)',
"H" => '(\S*(?:.*\S)*)',
"i" => '\S*',
"v" => '(\S*)',
);
my (@regexp_part, $first_meta_var,$header,$value,@header,@value);
for(split //, $input) {
# Header, Value
if(/[hv]/) {
if(/[Hhv]/) {
# Is this h...v or v...h
$first_meta_var ||= $_;
}
# Header, Value, Ignore
if(/[hiv]/) {
if(/[Hhiv]/) {
push @regexp_part, $part_map{$_};
next;
}
@ -380,6 +442,7 @@ sub parse_raw_given_opt_input {
push @regexp_part, $_;
}
my $regexp = join("",@regexp_part);
debug("Input: $input The regexp: $regexp\n");
for my $rawline (@raw) {
$rawline =~ /$regexp/ || die("$regexp not matching $rawline");
if(defined $2) {
@ -405,6 +468,7 @@ sub parse_raw_given_opt_input {
# Add the values to the table
push(@header,$header);
push(@value,$value);
debug("Header: $header Value: $value\n");
}
return ($max_value_length, $max_header_length, $max_value_header_length, \@header, \@value);
@ -412,7 +476,10 @@ sub parse_raw_given_opt_input {
my $term_width = terminal_width();
my $format = ($opt::format || "Vbhp");
my $format = ($opt::format || "VbHP");
if($format !~ /b/) {
die_usage();
}
my ($front, $end) = split /b/, $format;
my ($front_inside, $front_outside) = ($front,$front);
$front_inside =~ s/[a-z]//g; # Remove outsides
@ -424,7 +491,7 @@ $end_outside =~ s/[A-Z]//g; # Remove insides
for(my $i = 0; $i <= $#$value_ref; $i++) {
# $front_outside, ( $front_inside, BAR, $end_inside ), $end_outside,
my $header = $header_ref->[$i];
my $value = $value_ref->[$i];
my $value = undef_as_zero($value_ref->[$i]);
my %end_repl = (
'V' => sprintf(" %".$max_value_length."s",$value),
'H' => sprintf(" %".$max_header_length."s",$header),
@ -449,11 +516,7 @@ for(my $i = 0; $i <= $#$value_ref; $i++) {
my $bar_length = $term_width - length($front_outside_string) - length($end_outside_string);
my $factor;
if($opt::log) {
if($value <= 0 or $max_value <= 0) {
$factor = 0;
} else {
$factor = log($value)/log($max_value);
}
} else {
$factor = $value/$max_value;
}
@ -466,12 +529,15 @@ sub max {
# Returns:
# Maximum value of array
my $max;
no warnings 'numeric';
for (@_) {
# Skip undefs
defined $_ or next;
# Skip empty
$_ eq "" and next;
defined $max or do { $max = $_; next; }; # Set $_ to the first non-undef
$max = ($max > $_) ? $max : $_;
# Set $_ to the first non-undef (convert "10a" => 0+10)
defined $max or do { $max = 0+$_; next; };
$max = ($max > $_) ? 0+$max : $_;
}
return $max;
}
@ -482,6 +548,7 @@ sub sum {
# Sum of values of array
my @args = @_;
my $sum = 0;
no warnings 'numeric';
for (@args) {
# Skip undefs
$_ and do { $sum += $_; }
@ -549,26 +616,68 @@ sub bar_string {
sub guess_delimiter {
my @raw = @_;
my (%charcount,$guess);
my %charcount;
for(split//,join("",@raw)) {
# [a-zA-Z0-9] should never be auto chosen for delimiter
/[a-zA-Z0-9]/ and next;
$charcount{$_}++
}
# The guess must be present in all lines
for my $g (sort { $charcount{$b} <=> $charcount{$a} } keys %charcount) {
defined $g or next;
if(grep { not /\Q$g\E/ } @raw) {
next;
} else {
$guess = $g;
last;
}
}
my $guess = (sort { $charcount{$b} <=> $charcount{$a} } keys %charcount)[0];
if(defined $guess and $guess =~ /\s/) {
# If the guess is a white space, then use 1+ whitespaces
$guess = '\s+';
}
debug("Guessed delimiter: ".undef_as_empty($guess)."\n");
return $guess;
}
sub undef_as_zero {
my $a = shift;
return $a ? $a : 0;
}
sub undef_as_empty {
my $a = shift;
return $a ? $a : "";
}
sub debug {
# Returns: N/A
$opt::debug or return;
@_ = grep { defined $_ ? $_ : "" } @_;
print @_;
}
sub warning {
my @w = @_;
my $fh = $Global::original_stderr || *STDERR;
my $prog = $Global::progname || "parallel";
print $fh $prog, ": Warning: ", @w;
}
sub error {
my @w = @_;
my $fh = $Global::original_stderr || *STDERR;
my $prog = $Global::progname || "parallel";
print $fh $prog, ": Error: ", @w;
}
sub die_usage {
# Returns: N/A
usage();
exit(1);
}
sub usage {
# Returns: N/A
print join
("\n",
"Usage:",
"histogram [--delimiter <delim>|-d <delim>] [--log|-l]",
" [--input <format>|-i <format>] [--format <format>|-f <format>]",
" [<list of numbers>]",
"cat <file with numbers> | histogram [options]",
"");
}

29
histogram/tests Executable file
View file

@ -0,0 +1,29 @@
#!/bin/bash
echo "## pre space, decimal"
(echo ' 8.999 otte'; echo '16.999 seksten') | histogram
(echo ' 8.999,otte'; echo '16.999,seksten') | histogram --input v,h
echo "## two decimal, only values"
seq 1 .09 2 | histogram --input v
echo "## 1 2 3 command line"
histogram 1 2 3
echo "## a:1 b:2 c:3 command line"
histogram a:1 b:2 c:3
echo "## a 1 b 2 c 3"
(echo a 1; echo b 2; echo c 3) | histogram
echo "## a 1 b 2 c 3"
(echo "a 1"; echo b 2; echo c 3) | histogram
echo "## 1,a 2,b command line"
histogram 1,a 2,b
echo "## 1 2 3 4 command line"
histogram 1 2 3 4
echo "## a 1 b 2 c 3 command line"
histogram a 1 b 2 c 3
echo "## "a a":1 b:2 c:3 command line"
histogram "a a":1 b:2 c:3
(echo 150 hundredfifty;echo 30 thirty;echo 3 three;echo 6 six) | histogram --format vbH