perl统计句子每个单词出现次数
问题描述：
perl统计句子每个单词出现次数
答
while (my $line = <DATA>)
{
\x09map{$words{$_}++;} $line =~ /(\w+)/g
}
for (keys(%words))
{
\x09print "$_: $words{$_}\n";
}
__DATA__
I am a great man.
There is also a great river run aside of me.
He and me all alike climbing mountains.
He says man are creatures of big thinking.