perl - 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]piddle$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()小さなピドル（オブジェクト）でのみ機能する免責事項が付属しています。

Answer 2

dog を使用する以外に、index と list を使用した 1d pdl のオプションが 2 つあります。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);