perl统计文本中字符个数

概述#!/usr/bin/perl -w open (HFile,"/usr/develop-program/conf.txt") || die "Open error $!";   # 打开固定路径文本,文本中字符以标点符号，空格隔开 @file=<HFile>;    #将文本中文件读入到数组中 chomp @file;       ＃去掉回车 close (HFile);    ＃关闭文件 fo

#!/usr/bin/perl -w
open (Hfile,"/usr/develop-program/conf.txt") || dIE "Open error $!";   # 打开固定路径文本,文本中字符以标点符号，空格隔开
@file=<Hfile>;    #将文本中文件读入到数组中
chomp @file;       ＃去掉回车
close (Hfile);    ＃关闭文件
foreach $_ (@file)  ＃将文件file中每一行数据赋值给$_，$_为模式比配默认目的串
{
    while(/([/w]+-?[/w]*)[/s|,| . | ! ]/g)   ＃建立模式比配正则式,[/w/+ 为一个字符[A-Za-z0-9]出现一次或多次，[-]?为连字符

＃出现0次或一次，如third-aged单词，［/w］为字符出现一次或多次,（）用来

＃标记，作为的值，用来统计单词出现个数,［/s.......］表示标点符号。     {                $Word{}++;  #hash索引,作为索引值,单词个数作为关联值.     } } foreach $hash (keys %Word) {     print "$hash occures $Word{$hash} times/n"; }

总结

以上是内存溢出为你收集整理的perl统计文本中字符个数全部内容，希望文章能够帮你解决perl统计文本中字符个数所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。