Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re^2: OUTPUT Data to a table or horizontal bar chart

by theravadamonk (Scribe)
on May 18, 2018 at 10:47 UTC ( #1214834=note: print w/replies, xml ) Need Help??


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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1214834]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2020-11-25 00:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?