Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Re^2: String sorting in Perl

by Limbic~Region (Chancellor)
on Jun 04, 2014 at 17:38 UTC ( [id://1088695] : note . print w/replies, xml ) Need Help??

in reply to Re: String sorting in Perl
in thread String sorting in Perl

And you're done.

It appears the OP is interested in getting the values out in descending order (sorted).

for my $line (sort {$count_hash{$b} <=> $count_hash{$a}} keys %count_h +ash) { print "$line $count_hash{$line}\n"; }

Cheers - L~R

Replies are listed 'Best First'.
Re^3: String sorting in Perl
by Laurent_R (Canon) on Jun 04, 2014 at 17:48 UTC
    Yes, Limbic~Region, you're right ++, that's why I updated the post immediately after I posted it, but you saw it before I posted the change. Having said that, my understanding on how the sort should be carried out is not exactly the same as yours (I explained it in my update).
      The code should get the counts, order them with the highest counts first, then move to the next value.

      I didn't see anything that implied shorter strings should come first but I agree that "move to the next value" is fairly ambiguous.

      Cheers - L~R