sekhar kavuru wrote:
> How to identify a maximum occuring element in a Perl Array
>
> e.g @array values are CMSIF CMSIF CMSFV
>
> Since CMSIF has two occurences , I need to select CMSIF
>
> Any suggestions
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";
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
