Hi Derek: I think setting $PDL::use_commas=1 might help. This will insert commas when printing the PDL, allowing it to be cut and pasted more easily:
perldl> $PDL::use_commas=1 perldl> p ones(10,10) [ [1,1,1,1,1,1,1,1,1,1], [1,1,1,1,1,1,1,1,1,1], [1,1,1,1,1,1,1,1,1,1], [1,1,1,1,1,1,1,1,1,1], [1,1,1,1,1,1,1,1,1,1], [1,1,1,1,1,1,1,1,1,1], [1,1,1,1,1,1,1,1,1,1], [1,1,1,1,1,1,1,1,1,1], [1,1,1,1,1,1,1,1,1,1], [1,1,1,1,1,1,1,1,1,1] ] --Doug [email protected] Software Engineer UCAR - COSMIC, Tel. (303) 497-2611 On Fri, 16 Apr 2010, Derek Lamb wrote: > I'm playing with the data from earlier today, the piddle: > > [ > [1 0 8] > [6 3 5] > [3 0 5] > [2 4 2] > ] > > > Trying to get it into a piddle by copying and pasting the output from > the email. Starting with a simple 1D case: > > perldl> print pdl(1,0,8) #print the piddle > [1 0 8] > perldl> p pdl([1 0 8]) #use printed output to make new piddle > Number found where operator expected at (eval 179) line 4, near "1 0" > (Missing operator before 0?) > Number found where operator expected at (eval 179) line 4, near "0 8" > (Missing operator before 8?) > syntax error at (eval 179) line 4, near "1 0" > > > > OK, fine, I need some quotes: > > perldl> p pdl qw[1 0 8] > [1 0 8] > > > But how to do the 2D case? About the closest I can get is this: > > perldl> p pdl qw[ > ..[> [1 0 8] > ..[> [6 3 5] > ..[> [3 0 5] > ..[> [2 4 2] > ..[> ] > [0 0 8 0 3 5 0 0 5 0 4 2] > > > It comes out 1D, and the first column is all zeroes. Any tricks for > making it come out 2D, or any ideas why the first column is all zeroes? > > cheers, > Derek > > _______________________________________________ > Perldl mailing list > [email protected] > http://mailman.jach.hawaii.edu/mailman/listinfo/perldl > _______________________________________________ Perldl mailing list [email protected] http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
