首頁猿問 perl 怎么計(jì)算數(shù)組中相同數(shù)字的個(gè)數(shù)

perl 怎么計(jì)算數(shù)組中相同數(shù)字的個(gè)數(shù)

深度學(xué)習(xí)

慕容森 2019-04-12 11:06:06

#求Mr_A中每一列1,2,3,4,的個(gè)數(shù)，我編了一個(gè)小程序，有錯(cuò)誤，但是不知道哪里錯(cuò)# N為 Mr_A的行數(shù)；$count=0;for (my $i=0; $i<=$N-1;$i++){while ($Mr_A[$i][0]==1){$count++;}}print “$count\n”;#以上程序是求數(shù)組Mr_A第一列中1的個(gè)數(shù)，不知道哪里錯(cuò)了求大神、、我的意思就是統(tǒng)計(jì)每一列的1,2,3,4 的個(gè)數(shù)，上面這個(gè)程序是統(tǒng)計(jì)第一列1的個(gè)數(shù)，但是打印不出來，不知道有沒有辦法解決啊

查看完整描述

4 回答

婷婷同學(xué)_

TA貢獻(xiàn)1844條經(jīng)驗(yàn) 獲得超8個(gè)贊

錯(cuò)在:
while ($Mr_A[$i][0]==1){
$count++;
}
因?yàn)?$Mr_A[$i][0] 如果是 = 1 的話, 那永遠(yuǎn)也是等於 1, 因?yàn)槟阍诨芈分袥]有改變過$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 $/;

}