histogram.pl

   1 #!/usr/bin/perl -w
   2
   3 my %data;
   4 my $total = 0;
   5
   6 while (<>) {
   7         my $v = $_;
   8         chomp($v);
   9         $data{$v}++;
  10         $total++;
  11 }
  12
  13 my $accum = 0;
  14 my $line = 0;
  15
  16 foreach my $v (sort { $data{$a} <=> $data{$b} } keys %data) {
  17     $accum += $data{$v};
  18     printf "%d (%.0f%% / %.0f%%) %s  (%u)\n",
  19     $data{$v},
  20     (100*$data{$v})/$total,
  21     (100*$accum)/$total,
  22     $v,
  23     $line;
  24     $line++;
  25 }