$Bill Luebkert wrote:
>
> Lots of ways to do it.
> I'd probably just map it into a hash increasing the count by one
> for each occurence - then sort the hash by value.
>
> my @a = qw(CMSIF FUBAR CMSIF CMSFV CMSIF FUBAR);
> my %h;
>
> map { $h{$_}++ } @a;
> my @b = sort { $h{$a} cmp $h{$b} } keys %h;
> print "$b[0]\n";
You are using a string comparison to sort numbers. This will cause
problems once you get to the double digits.
Try this instead:
my @b = sort { $h{$a} <=> $h{$b} } keys %h;
--
Bowie
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
