http://www.perlmonks.org?node_id=1214834


in reply to Re: OUTPUT Data to a table or horizontal bar chart
in thread OUTPUT Data to a table or horizontal bar chart

Hi Guys, Thanks for the below CODE. it works well.

print '<table><tr><th>Word</th><th>Count</th></tr>'; for my $word (sort keys %count) { print "\n<tr><td>$word</td><td>$count{$word}</td></tr>"; } print '</table>';

It sorts from A to Z order With word column. I want to sort the other column which is Count. I need from Largest number to lowest. e.g - email account having most emails should sort first and So on. I tried But I couldn't.

e. g- I tried, But I did not succeed. sort($b <=> $a) ; # for numbers

I think I will have to change this below code

for my $word (sort keys %count) {

Could you pls help me to resolve this issue. i searched a lot. Your codes are welcome.

Replies are listed 'Best First'.
Re^3: Output data to a table or horizontal bar chart
by hippo (Chancellor) on May 18, 2018 at 10:55 UTC

      I changed below code

      for my $word (sort keys %count) {
      to
      for my $word (sort { $count{$b} <=> $count{$a} } keys %count) {
      It seems to work. Anyway, Your Ideas r welcome