统计字符出现的次数一般用hash，可是用perl好像有点小问题呢

hahalaka

$aa = "16>1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16";
my %hash = ();
if ($aa != 0){
        @array = split(/[>:]/,$aa);
        for($i=1;$i<=$#array;$i++){
                $hash{@array[$i]}++;
        }
}
foreach $key (%hash) {print "$key--->$hash{$key}\n";;}


上面是例子  照说hash里面的key应该只有16个，可是打印出来好奇怪哦，翻倍了呢，而且键值为1重复了好多遍

ecjtubaowp

回复 1# hahalaka


    @array[$i]=>$array[$i]

hahalaka

呃。。   多谢啦，哎，找半天原来这里出问题了呢，基础不牢啊

hahalaka

回复 2# ecjtubaowp


    好像还是一样的呢 跟之前输出没变化

ecjtubaowp

foreach $key (keys %hash)

hahalaka

...    ok了