Mega Code Archive

 

Categories / Perl / Statement

 

Using foreach loops with hashes

@opinions = qw( A b c d e f g h jk r e r t r e  e  e e  e  ww ); foreach ( @opinions ) {    ++$hash{ $_ }; } print "Word\tFrequency\n"; print "----\t---------\n"; foreach ( sort keys( %hash ) ) {    print "$_\t", "*" x $hash{ $_ }, "\n"; }