#!/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";
}