Help for this page

Select Code to Download


  1. or download this
    my %count_hash;
for my $line (@data) {
     $count_hash{$line} ++;
}
  2. or download this
    my @sorted_data = sort { length $a <=> length $b || $count_hash{b} <=>
+ $count_hash{$a} } keys %count_hash;
  3. or download this
    my @sorted_data = sort { length $a <=> length $b || $count_hash{$b} <=
+> $count_hash{$a} } keys %count_hash;