Pithos_GSS » Java GSS CLI Client

use strict;

my @values;

while (<>) {

    chomp;

    push (@values, ((split(/\t/, $_))[2]));

}

my @sorted_values = sort {$a <=> $b } @values;

my $range = $sorted_values[$#sorted_values] - $sorted_values[0];

my $bin_width = $range / 100;

my ($bin_start, $bin_end);

$bin_start = $sorted_values[0];

$bin_end = $bin_start + $bin_width;

my $elements_in_bin;

my $i = 0;

my $j = 0;

while ($i < 100) {

    if ($sorted_values[$j] > $bin_end) {

	print($bin_start, " ", $bin_end, " ", ($bin_start + $bin_end) / 2,

	      " ", $elements_in_bin, "\n"); 

	$bin_start = $bin_end + 1;

	$bin_end += $bin_width;

	$elements_in_bin = 0;

    } else {

	# print("$sorted_values[$j] going in [$bin_start:$bin_end]\n");

	$elements_in_bin++;

	$i++;

	$j++;

    }

}

print($bin_start, " ", $bin_end, " ", ($bin_start + $bin_end) / 2,

      " ", $elements_in_bin, "\n");