如何在Perl中确定动态二维数组（mxn）的尺寸？

嘿，这个问题我太熟悉了！在Perl里处理这种动态变化的二维数组，其实用几个简单的操作就能拿到你要的行数m和列数n，跟一维数组的$#ary_1d用法思路一致，咱们拆解来讲：

1. 计算行数m #

二维数组本质是数组的数组，外层数组@ary_2d的元素个数就是总行数。你有两种等价的写法：

• 直接用scalar获取数组元素个数：

  my $m = scalar @ary_2d;
  

• 用最后一个元素的索引加1（和一维数组$#ary_1d + 1的逻辑完全一样）：

  my $m = $#ary_2d + 1;
  

2. 计算列数n #

列数的前提是你的二维数组每行长度一致（一般数据集都是规整的），这时候取任意一行的元素个数就行，通常选第一行：

• 同样用scalar获取子数组的元素个数：

  # 先确保数组非空，避免报错
  my $n = @ary_2d ? scalar @{$ary_2d[0]} : 0;
  

• 或者用子数组的最后索引加1：

  my $n = @ary_2d ? $#{$ary_2d[0]} + 1 : 0;
  

3. 边界情况处理 #

如果你的二维数组可能是空的，或者存在行长度不一致的情况，就得加一些判断逻辑：

• 空数组判断：上面的写法已经用@ary_2d ? ... : 0处理了空数组的情况，避免访问$ary_2d[0]时出错。
• 行长度不一致：如果数据集里每行的列数可能不同，你可以遍历所有行，统计最大/最小列数，比如：

  my $max_cols = 0;
  foreach my $row (@ary_2d) {
      my $current_cols = scalar @$row;
      $max_cols = $current_cols if $current_cols > $max_cols;
  }
  

示例代码 #

给你整个完整的例子，一看就懂：

# 模拟动态生成的二维数组
my @ary_2d = (
    [10, 20, 30],
    [40, 50, 60],
    [70, 80, 90]
);

# 获取行数和列数
my $m = scalar @ary_2d;
my $n = @ary_2d ? scalar @{$ary_2d[0]} : 0;

print "行数m: $m\n";  # 输出：行数m: 3
print "列数n: $n\n";  # 输出：列数n: 3

内容的提问来源于stack exchange，提问作者Leon WANG