Tip #1 from the Basic debugging checklist... warnings
use warnings; my %myhash = (); my @data = (); chomp(@data = <DATA>); foreach (@data) { $myhash{$_}++; } foreach $k (sort {$a <=> $b} keys %myhash) { print "$k : ". '*' x $myhash{$k} . "\n"; } __DATA__ 1 2 3 3 2 2 1 2
In reply to Re: Learning Perl, Hashes Help
by toolic
in thread Learning Perl, Hashes Help
by learningmanylang
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |