Mega Code Archive

 

Categories / Perl / Hash

 

If an entry exist

#!/usr/bin/perl -w use strict; my @names = qw(     A  E  I     B  F  J     C  G  K     D  H  L ); my %count; foreach (@names) {     if (exists $count{$_}) {         $count{$_}++;     } else {         $count{$_} = 1;     } } foreach (keys %count) {     print "$_ \toccurs $count{$_} time(s)\n"; }