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
In Section
Seekers of Perl Wisdom
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