in reply to
Re^2: 2 newby questions
in thread 2 newby questions
What about this one, is this code condensed enough?
#!/usr/bin/perl -w
use strict;
use warnings;
my %counter;
print
"This program records all of the words you type and counts how oft
+en you type them.\nPlease type in a list of words. Type done when yo
+u are finished.\n";
$counter{$_}++ while chomp($_ = <STDIN>) && !/^done$/i;
foreach my $line ( sort keys %counter ) {
printf "You typed '$line' $counter{$line} time%s.\n", ($counter{$l
+ine} == 1) ? "" : "s";
}
Also note the 'my' in the foreach, always use this idiom!
