How to iterate over Perl PDL?

Question

The next i got something like

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

Also, how can I convert [1,2,3,4]to piddle $u, can I return a list (or list of lists for a matrix) from $u?

+3

arrac Mar 07 '11 at 10:44

2 answers

Also, using a dog, here are two other options for your 1d pdl, using an index and a list. there is also 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);

+3

Demian Aug 18 '11 at 13:43

arrac · Accepted Answer · 2011-03-11T14:08:45+0000

With wisdom from the monks, I found the answer: http://perlmonks.org/index.pl?node_id=892201

Thought I'd share this here in my original question. The above code can be rewritten as:

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

Wisdom came with a disclaimer that dog()only works on small armpits (objects).