我最接近的是像
use PDL; my $u = pdl [1,2,3,4]; my $dim = 4; for(my $i=0; $i<$dim; $i++) { print $u->flat->index($i),"\n"; }
解决方法
凭借僧侣的智慧,我找到了答案:
http://perlmonks.org/index.pl?node_id=892201
http://perlmonks.org/index.pl?node_id=892201
use PDL; my $u = pdl [1,4]; foreach ($u->dog) { print $_,"\n"; }
智慧伴随着免责声明,狗()只适用于小谜(对象).