如何在Perl PDL中迭代？

Question

我最接近的东西是这样的

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";
}

另外，由于我可以将[1,2,3,4]转换为$u，我能否从$u中取回列表(或矩阵的列表

Answer 1

有了和尚们的智慧，我找到了答案：http://perlmonks.org/index.pl?node_id=892201

我想在我的原始问题中分享一下。上面的代码可以重写为：

use PDL;
my $u = pdl [1,2,3,4];
foreach ($u->dog)
{
  print $_, "\n";
}

智慧来自于一个免责声明，即dog()只能在小piddles (对象)上工作。

Answer 2

除了使用dog之外，这里还有另外两个使用index和list的1DPDL选项。还有index2d

use PDL;
my $a = pdl(1 .. 4);
#use index
print $a->index($_), "\n" foreach (0 .. $a->nelem-1);
#use list
print $_ . "\n" foreach ($a->list);