#!/usr/bin/perl -w use strict ; use POSIX ; my %bin ; my %size; my %value ; my $binwidth = $ARGV[0] ; chomp(my $prog = `basename $0`) ; if ($#ARGV < 0) { print "\nUsage: ./histo.pl.pl <bin width>\n" ; exit ; } while ( <STDIN> ) { my @line= split ; my $element = $line[0] ; $value{ceil(($element+1)/$binwidth)-1}++ } foreach my $i (sort {$a<=>$b} keys %value) { my $bin = $i*$binwidth ; print "$bin $value{$i}\n" ; }
In reply to Re: Help with Histograms
by cmr72
in thread Help with Histograms
by cmr72
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |