求助,關(guān)于perl計(jì)算二維數(shù)據(jù)元素個(gè)數(shù)

kaixin9ok

@array =
(
[1,3,7,9],
[1,2,3,8,10,5],
[4,5,6],
);

我想循環(huán)打印出二維數(shù)據(jù)里所有的元素
#!/usr/bin/perl
use warnings;
$num = $#array+1;
$num2 = $#array[0]+1;      這里我想求得二維數(shù)組中元素的個(gè)數(shù)，一直沒(méi)想明白到底應(yīng)該怎么寫(xiě)？麻煩大神門(mén)幫忙看看要怎么寫(xiě)，多謝了

for($i=0;$i<$num;$i++){
     for($j=0;$j<$num2;$j++){
        print $array[$i][$j] . " ";
    }
         print "\n";
}

cinanine

1. #!/usr/bin/perl
   
2. use 5.010;
   
3. 
   
4. my @a = ( [ 1, 3, 7, 9 ], [ 1, 2, 3, 8, 10, 5 ], [ 4, 5, 6 ], );
   
5. for my $i ( 0 .. $#a ) {
   
6.     for my $j ( 0 .. $#{ $a[$i] } ) {
   
7.         say $a[$i][$j];
   
8.     }
   
9. }

復(fù)制代碼

zhlong8

回復(fù) 1# kaixin9ok


for($i=0;$i<@array;$i++){
     for($j=0;$j < @{$array[$i]}; $j++) {
        print $array[$i][$j] . " ";
    }
         print "\n";
}

數(shù)組在 scalar context 下的值就是它的大小

rubyish

謝謝，多謝了，大神門(mén)

kaixin9ok

回復(fù) 2# cinanine


    多謝大神~。

kaixin9ok

回復(fù) 2# cinanine


    多謝大神~。

kaixin9ok

回復(fù) 2# cinanine


    多謝大神~。

kaixin9ok

回復(fù) 3# zhlong8


   嗯，是唉，到這里就變換了上下文了

  多謝指教...