perl统计文本中字符个数

#!/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］为字符出现一次或多次,（）用来

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