perl 怎么计算数组中相同数字的个数

Question

#求Mr_A中每一列1,2,3,4,的个数，我编了一个小程序，有错误，但是不知道哪里错# N为 Mr_A的行数；$count=0;for (my $i=0; $i<=$N-1;$i++){while ($Mr_A[$i][0]==1){$count++;}}print “$count\n”;#以上程序是求数组Mr_A第一列中1的个数，不知道哪里错了 求大神、、我的意思就是统计每一列的1,2,3,4 的个数，上面这个程序是统计第一列1的个数，但是打印不出来，不知道有没有办法解决啊

Answer 1

错在:
while ($Mr_A[$i][0]==1){
$count++;
}
因为 $Mr_A[$i][0] 如果是 = 1 的话, 那永远也是等於 1, 因为你在回路中没有改变过$Mr_A[$i][0] 的值, 所以就不可能跳出来了.

你可以这麼做的
foreach my $row ( 0.. $#Mr_A ) {
my %item;
foreach my $col ( @{$Mr_A{$row}} ) {
++$item{$col}
}
print "In Row $row: $/";
print "\tThere are $item{$_} of $_$/" foreach sort {$a<=>$b} keys %item;
print $/;

}