arrays - 如何在Perl中获取二维数组中的元素数

Question

我正在使用 Perl 中的 2D 数组，遇到了一个绊脚石，我希望有人能帮助我。

我正在读取一个具有 x 行数和 y 列数的文件，我将其放入 2D 数组中，

出于测试目的，我尝试使用 for 循环打印出数组中第一个元素（行）的内容：

        for( $m = 0; $m <= $#fields; $m++)
    {   
        printf "Field [0][$m] = $fields[0][$m]\n";
    }

我遇到的问题是这个循环是针对整个数组大小而不是第二个元素的长度。

任何帮助将不胜感激。

标签： arraysperl

Answer 1

使用$#{}取消引用来获取数组引用的最后一个索引：

for (my $m = 0; $m <= $#{ $fields[0] }; $m++)