perl 统计单词个数脚本

您没有插入代码！

my (%word,@word_array);
while (<>)
{
s/,|\.//g;
@temp_array=split(/\s+/);
push @word_array,@temp_array;
}
foreach (@word_array)
 {
 $word{$_}=1 and next unless $word{$_} ;
 $word{$_}++ ;
 }
while (my ($k,$v)=each %word)
{
print "$k ==> $v\n";
}

文件

zfw zfw slf
fkf  fkffd  ffj  fkaf , fdjakf
j fdka ,bf fjdk zfw  zfwslf zfwl zfwslf
fasf
fdsa
fdsa
fdsa
fd
sa
fazfw
zfxf

 

可以根据文件的不同可以略加修改

主要用哈希来计算每个单词出现的个数