If you got everything into an array you could do:
my ($high,$low);
my ($total) = scalar @array;
for (@array) {
if ($_ > 3) { $high++ } elsif ($_ < 4) { $low++ }
}
Then you can just do something like:
my $high_percent = sprintf("%.2f", (($high / $total) * 100));
my $low_percent = sprintf("%.2f", (($low / $total) * 100));
I _think_ that should work. You should end up with percentages for how many ratings are above/below 3.
There may be an easier way :)
Code:
my (@array) = qw( 3 4 7 1 4 1 2); #example my ($high,$low);
my ($total) = scalar @array;
for (@array) {
if ($_ > 3) { $high++ } elsif ($_ < 4) { $low++ }
}
Then you can just do something like:
my $high_percent = sprintf("%.2f", (($high / $total) * 100));
my $low_percent = sprintf("%.2f", (($low / $total) * 100));
I _think_ that should work. You should end up with percentages for how many ratings are above/below 3.
There may be an easier way :)