如何取得perl中匿名数组的长度

混人天成

例如@arr=([1,2,3],[4,5,6],[7,8,9]);
希望取得其中匿名数组的长度，需要如何实现呢？

我尝试@len=$arr[1];进行赋值，但是效果和$xyz=$arr[1]是一样的？

ludio333

perl -e '@arr=([1,2,3],[4,5,6],[7,8,9]);map{print scalar @$_;}@arr'

兰花仙子

ludio333 发表于 2012-08-30 09:36
perl -e '@arr=([1,2,3],[4,5,6],[7,8,9]);map{print scalar @$_;}@arr'

 又一个傻用map的

混人天成

回复 2# ludio333
谢谢你的解答！
能否提点下匿名数组的赋值呢？
如果(@len)=@arr，为什么它获取的是一个标量值呢？只能通过->引用吗？

   

Perl_Er

1. perl -e '@arr=([1,2,3],[4,5,6],[7,8,9]); print scalar @{$arr[0]}'
   

复制代码

回复 1# 混人天成


   

混人天成

回复 3# 兰花仙子
兰花仙子，刚拜读了你关于perl几个系列的内容，很受益！
哦，对了！这个问题还是源于你map中关于转置矩阵中的问题呢？
你里面提到的是n*n的矩阵，若是n*m的矩阵的话，如何提取其数组长度？
   

ludio333

回复 3# 兰花仙子

perl -e '@arr=([1,2,3],[4,5,6],[7,8,9]);for(@arr){print scalar @$_;}'
???

   

兰花仙子

ludio333 发表于 2012-08-30 10:30
回复 3# 兰花仙子

perl -e '@arr=([1,2,3],[4,5,6],[7,8,9]);for(@arr){print scalar @$_;}'

http://bbs.chinaunix.net/thread-1627880-1-1.html

jason680

回复 6# 混人天成

use strict;
use warnings;
my @arr=([1],2,3,[4,5],6,[7,8,9]);

my $sCnt = 0;
foreach (@arr){
  if(ref($_) eq 'ARRAY'){
    print "anonymous array \$arr[$sCnt] has ". scalar @{$_} . " elements\n";
  }  
  $sCnt++;   
}
   

$ perl anonymous.pl
anonymous array $arr[0] has 1 elements
anonymous array $arr[3] has 2 elements
anonymous array $arr[5] has 3 elements

ludio333

回复 8# 兰花仙子


    感谢，学习了

$ time perl -e 'open STDOUT,">/dev/null";print $_ for 1 .. 1000000'   

real        0m0.438s
user        0m0.432s
sys        0m0.005s
$ time perl -e 'open STDOUT,">/dev/null";print $_ foreach 1 .. 1000000'   

real        0m0.412s
user        0m0.407s
sys        0m0.004s
$ time perl -e 'open STDOUT,">/dev/null";map{print }  1 .. 1000000'   

real        0m0.629s
user        0m0.588s
sys        0m0.039s