Re^7: String sorting in Perl

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

Change the last lines to:

for my $line (sort { length $a <=> length $b || $count_hash{$b} <=> $c
+ount_hash{$a}} keys %count_hash) {
    chomp $line;
    print "$line\t$count_hash{$line}\n";
}
[download]

(Or you also could chomp the data before.)

Comment on Re^7: String sorting in Perl Select or Download Code

Replies are listed 'Best First'.
Re^8: String sorting in Perl by markdavis87 (Novice) on Jun 04, 2014 at 19:47 UTC
Haha, that's exactly what I did before I read your post. Thanks for all the help! I really appreciate it.	[reply]

In Section Seekers of Perl Wisdom