Re^3: using hashes to count

[nferraz]

Usual way:

my @strings = qw/ a a b c a b c d e a b c a b c d /;

my %count;
foreach ( @strings ) {
  $count{$_} ||= 0;
  $count{$_}++;
}

# Then, if you want to sort the results by value:

foreach ( sort { $count{$a} <=> $count{$b} } keys %count ) {
  print "$_ => $count{$_}\n";
}

[ikegami]

The $count{$_} ||= 0; is useless. ++ doesn't give undefined warnings.

[spiros]

Excellent, thank you very much.