wordpos.pl

给定带有分词和词性标注信息语料

open(FileIn,"<wordPOS.txt");
while(<FileIn>){
	chomp;
	@Word=/(\S+)\/\S+/g;
	foreach (@Word){
		$HashFreq{$_}++;
	}
}
close(FileIn);

foreach (sort{$HashFreq{$b}<=>$HashFreq{$a}} keys %HashFreq){
	print "$_ $HashFreq{$_}\n";
}