这段perl程序是什么意思

Question

open (FILEIN,"lajiduanxin_seg.txt")||die"cant open:$!";
while(<FILEIN>)
{
$#line=-1;
my $readline=$_;
$readline=~s/\[//msg;#删除每行中的[
$readline=~s/\][a-z]+//msg;
chomp($readline);
$readline=~s/\s+$//;#删除尾部空白
@line=split(/\s+/,$readline);
shift(@line);
$count=@line;#每行元素的总个数
#print"@line\n";
my $i;
for($i=0;$i<=$count-1;$i++)
{
$now_word=$line[$i];

$sent=$now_word."\n";
push @pp,$sent;
}
}
open(FILEHANDLE,">zongsu.txt") or die "can't open file\n";

foreach (@pp)
{
print FILEHANDLE "$_";
}

close(FILEHANDLE);
能把每句程序注释一下吗

Answer 1

%seen = (); # 定义散列 seen
$string = "an apple a day"; #定义变量 string
foreach $byte (split //, $string) { # 依次把string中的字符取出，传给 byte（空格也算一个字符的）
$seen{$byte}++; # 在散列seen中，以该字符为key的value加一（就是统计该字符累计出现次数）
}
print "unique chars are: ", sort(keys %seen), "\n";# 打出seen中获得的全部key的值。
你可以用print %seen;来看一下里面的结果就更清楚了。

总体来说，以上程序就是统计一个字符串里面一共出现了哪些字符（通过散列实现了去重，同时统计了每个字符出现的次数）

自己看这个网站
http://blog.csdn.net/didizyp/archive/2006/08/25/1118286.aspx
给我分哦 选我哦

参考资料：http://blog.csdn.net/didizyp/archive/2006/08/25/1118286.aspx