Question

perl如何求 二维数组的大小

Answer 1

perl的二维数组各个行可以不一样的长度，可以参考下面的程序
@m=([1,2,3,4],[3,4,5,6],[7,8,9]);
$row = $#m;
$col0 = $#{$m[0]};
$col1 = $#{$m[1]};
$col2 = $#{$m[2]};
print "total $row rows \nrow0 has $col0 columns \nrow1 has $col1 columns\nrow2 has $col2 columns\n";

Answer 2

@a = (1,2,3,4);
$n=scalar @a;  # $n=4;