|
问题：perl统计句子每个单词出现次数
答案：↓↓↓ 洪荣晶的回答： 网友采纳 while (my $line = ) { 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. | 
