求助,关于perl计算二维数据元素个数

kaixin9ok

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

我想循环打印出二维数据里所有的元素
#!/usr/bin/perl
use warnings;
$num = $#array+1;
$num2 = $#array[0]+1;      这里我想求得二维数组中元素的个数，一直没想明白到底应该怎么写？麻烦大神门帮忙看看要怎么写，多谢了

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. }

复制代码

zhlong8

回复 1# kaixin9ok


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

数组在 scalar context 下的值就是它的大小

rubyish

谢谢，多谢了，大神门

kaixin9ok

回复 2# cinanine


    多谢大神~。

kaixin9ok

回复 2# cinanine


    多谢大神~。

kaixin9ok

回复 2# cinanine


    多谢大神~。

kaixin9ok

回复 3# zhlong8


   嗯，是唉，到这里就变换了上下文了

  多谢指教...