perl统计文本单词数量

最新推荐文章于 2023-12-10 12:42:14 发布

sddahu

最新推荐文章于 2023-12-10 12:42:14 发布

阅读量1.7k

点赞数 1

分类专栏： perl 文章标签： perl

本文链接：https://blog.csdn.net/sddahu/article/details/25657507

版权

perl 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

在做文本处理时，我们经常需要统计文本单词数量，给大家分享一段代码。

open IN,'test.txt';
while(<IN>){
        chomp;   #出去换行符\n
 $line = $_;
 $line =~ s /[ . , ? ! ; : ' " ( ) { }  \[ \]] / /g; #句号，逗号等统一改为空格
        @words = split(/ /,$line);
        foreach $word (@words){
                ++$counts{lc($word)                        
                };
        }
};  #将出现的单词存入hash表
foreach $word (keys %counts) {
        print "$word,$counts{$word}\n";
        }#打印出单词出现的个数