Re: How do I extract the number of times a value appears in a hash?

Pardon the building of the hash

#! /usr/bin/perl

%hash = (
    '1' => 'foo',
    '2' => 'bar',
    '3' => 'foo',
    '4' => 'foo',
);

%count;
foreach $key ( keys %hash ) {
    $val   = $hash{$key};
    $count{$val}++;
}

foreach $key1 ( keys %count ) {
    print $key1 . " appears " . $count{$key1} . " times\n";
}
[download]

Comment on Re: How do I extract the number of times a value appears in a hash? Download Code