How to fill the contents of a 2D piddle?

xanadol has asked for the wisdom of the Perl Monks concerning the following question:

Assuming that I want to fill a 2D array(not piddle) by reading in a coma delimited text, I'd probably go about as follows:

Note that @tempimage's each row is a coma delimited text, and it's # of rows are greater than 1.

my @image2D=undef;
for(my $ix=0; $ix<scalar @tempimage; $ix++)
{
   my @temp=split("\,",$tempimage[$ix]);
   for(my $iy=0; $iy<scalar @temp; $iy++)
    {
    $image2D[$ix][$iy]=$temp[$iy];
    }                
}
[download]

So, for each row in @tempimage, I can split the coma delimited values and replace them to a column in a 2D perl array(which is @image2d), and I can access any element by saying $image2D[$index_1][$index_2]

How can I fill a pdl in the same fashion? Can I also create a nested for loop and manipulate the contents of a pdl? Must I create a pdl of zeros and fill the zero indices?

Thanks for all the input!

Comment on How to fill the contents of a 2D piddle? Select or Download Code

Replies are listed 'Best First'.
Re: How to fill the contents of a 2D piddle? by dwm042 (Priest) on Feb 24, 2014 at 19:01 UTC
Simplest way is to do what you did previously and then assign the array to a piddle: `my $img2Dpdl = pdl @image2D;` [download] David	[reply] [d/l]
Re: How to fill the contents of a 2D piddle? by kevbot (Vicar) on Feb 25, 2014 at 05:47 UTC
You can read delimited data directly into PDLs using the rcols function from the PDL::IO::Misc module. For example, if you have the following data in a file named table.csv `0.1,0.2,0.3,0.4,0.5 1,2,3,4,5 1.1,2.2,3.3,4.4,5.5 10,20,30,40,50 100,200,300,400,500` [download] Then you can read it into a 2D PDL as follows: `#!/usr/bin/env perl use strict; use warnings; use PDL; use PDL::IO::Misc; my $x = pdl( rcols 'table.csv', { COLSEP => ',' } ); print $x; exit;` [download] and the output will be: `[ [0.1 1 1.1 10 100] [0.2 2 2.2 20 200] [0.3 3 3.3 30 300] [0.4 4 4.4 40 400] [0.5 5 5.5 50 500] ]` [download]	[reply] [d/l] [select]