Perl中子数组的数组数组

概述我试图在数组数组中获得“子阵列”的数量…… 即： 原版的： @array = (("a","b","c"),(1,2,3),("q","w","e")); 改性： @array = (["a","b","c"],[1,2,3],["q","w","e"]); 我怎么去得到这个号码？ (在这种情况下,它将是3.) 要仅计算数组ref中的数组引用,可以将 grep与 ref built-in一起使用. 我试图在数组数组中获得“子阵列”的数量……

即：

原版的：

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

改性：

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

我怎么去得到这个号码？ (在这种情况下,它将是3.)

解决方法 要仅计算数组ref中的数组引用,可以将 grep与 ref built-in一起使用.假设在外部数组ref中可以有其他内容和数组引用,可以这样做：

my @array = (["a","e"],4);my $count = scalar grep { ref $_ eq 'ARRAY' } @array;print $count;__END__3

它将依次查看@array的每个元素,获取具有引用类型ARRAY的元素,并将结果列表强制转换为标量上下文,给出元素数量.

因为你似乎有一个哈希引用,它包含数组引用的数组引用,所以将它改为this就可以了.我以为你可以自己做转移.

my $count = scalar grep { ref $_ eq 'ARRAY' } @{ $hashref->{element} };

总结

以上是内存溢出为你收集整理的Perl中子数组的数组数组全部内容，希望文章能够帮你解决Perl中子数组的数组数组所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。