in reply to count of a word occurrence
my %hash; for (<DATA>) { s/^(\S+).*/$1/; $hash{$_}++ } use Data::Dumper; print Dumper \%hash; __DATA__ 817 5:00 817 5:00 817 5:15 123 4:45 817 5:30 495 7:45
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: count of a word occurrence
by DamnDirtyApe (Curate) on Mar 23, 2004 at 04:51 UTC | |
by Roy Johnson (Monsignor) on Mar 23, 2004 at 16:41 UTC | |
by DamnDirtyApe (Curate) on Mar 23, 2004 at 16:48 UTC |
In Section
Seekers of Perl Wisdom