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"; }