—

              
#!/usr/bin/perl
# PODNAME: histogram
# ABSTRACT: command-line tool for generating log-log histogram of data on stdin
use strict;
use warnings;
use Statistics::Histogram;
use Getopt::Long;
my $num_bins = undef;
my $use_linear_axes = '';
my $use_integral_bins = '';
my $help = 0;
my $result = GetOptions('bins=i' => \$num_bins,
                        'linear' => \$use_linear_axes,
                        'integral' => \$use_integral_bins,
                        'help'   => \$help,
                    );
if ( !$result || $help ) {
    print <<'EOS';
cat data | histogram --bins 20 --linear
cat data | histogram --integral
bins and linear are optional. bins defaults to 10, and if linear
is not specified the histogram axes are logarithmic instead of linear.
If integral is given, linear is forced to be true and the histogram
will have a bins for each integer from the smallest to largest value
in the data, or groups of integers if bins is specified.
EOS
    exit;
}
my @data;
while (my $line = <> ) {
    chomp $line;
    push @data, $line;
}
print get_histogram(\@data, $num_bins, $use_linear_axes, $use_integral_bins);
HideShow 23 lines of Pod
__END__
=pod
=head1 NAME
histogram - command-line tool for generating log-log histogram of data on stdin
=head1 VERSION
version 0.2
=head1 AUTHOR
Douglas Webb <doug.webb@gmail.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2005 by Douglas Webb.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut