in reply to Optimize - Checking multiple occurences of elements in an array
#!/usr/bin/perl -w use strict; my @arr=(1,3,5,2,6,3,7,4,9,2,3,5,1,7); my %count; $count{$_}++ for @arr; print "$_ occured $count{$_} times\n" for sort { $count{$b} <=> $count +{$a} || $a <=> $b} keys %count; my @uniq = sort keys %count; print "\nunique values are @uniq\n"
3 occured 3 times 1 occured 2 times 2 occured 2 times 5 occured 2 times 7 occured 2 times 4 occured 1 times 6 occured 1 times 9 occured 1 times unique values are 1 2 3 4 5 6 7 9
|
|---|