Using foreach loops with hashes. : Foreach « Statement « Perl
- Perl
- Statement
- Foreach
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";
}
Related examples in the same category