arrays - Perl 中数组的子数组数

Question

我正在尝试获取数组数组中“子数组”的数量...

即:

原文:

@array = (("a","b","c"),(1,2,3),("q","w","e"));

修改:

@array = (["a","b","c"],[1,2,3],["q","w","e"]);

我将如何获得这个号码？ (在这种情况下，它将是 3。)

Answer 1

你没有任何“子数组”。

my @array = (['a','b','c'],['a','b','c'],['a','b','c']);

然后只是

print scalar @array;

打印出来的

3

你想要一个数组数组，这可以通过一个 arrayref 数组来完成。可以使用 [,] 方括号创建数组引用。

my $array_ref = ['a','b','c'];

您可以取消引用带有前导 @ 的 Arrayref:

print scalar @$array_ref;
# or an more readable version
print scalar @{ $array_ref }