Perl PDL 未按预期工作

Question

PDL的输入函数我是真的不懂。 就个人而言，我一直在使用 rcols 功能来创建 pdls，正如在 web 周围的各个地方向我推荐的那样。

我有一个这样的输入文件：

 3 -4 -1
 0 5 2
 3 5 6
 2 5 2
 5 5 5
 5 5 6

其中，我想分配给一个 Piddle。 当我像这样将它分配给一个 piddle 时，

my @pdls = rcols $in_fh, { COLSEP => "\\s" } ;
my $pdl = pdl(@pdls[1 .. $#pdls]);

当我打印 @pdls 时，打印出来的是：

[
 [ 3  0  3  2  5  5]
 [-4  5  5  5  5  5]
 [-1  2  6  2  5  6]
]

这让我觉得它按列而不是按行提取了我的文件。 看代码是有道理的，真的。 当我将这个 output 保存到一个文件中时（去掉所有括号后），它看起来是这样的。 :

3  0  3  2  5  5
-4  5  5  5  5  5
-1  2  6  2  5  6

当我在新的输入文件上运行相同的脚本时，结果并不遵循与以前相同的过程：

[
 [ 0 -4 -1]
 [ 3  0  0]
 [ 0  5  2]
 [ 0  0  0]
 [ 0  5  6]
 [ 3  0  0]
 [ 0  5  2]
 [ 2  0  0]
 [ 0  5  5]
 [ 5  0  0]
 [ 0  5  6]
 [ 5  0  0]
]

我不知道为什么要这样做。 本质上，我希望能够将我的文本文件读入 piddle。 有没有人看到我遗漏了什么，或者能够提供任何解释？

谢谢你的帮助。

Answer 1

正如 PDL 中偶尔出现的情况，具有多个维度的事物的设计可能有点违反直觉。 但它是整体设计的，因此很容易调整尺寸。 在这里， rcols和wcols以 FORTRAN 风格的列优先方式处理文件中的数据。 使用transpose方法很容易调整：

pdl> p $x = sequence(3,4)

[
 [ 0  1  2]
 [ 3  4  5]
 [ 6  7  8]
 [ 9 10 11]
]

pdl> wcols($x->transpose, 'myfile')

pdl> p pdl(rcols('myfile', {colsep => qr/\s+/}))->transpose
Reading data into ndarrays of type: [ Double Double Double ]
Read in  4  elements.

[
 [ 0  1  2]
 [ 3  4  5]
 [ 6  7  8]
 [ 9 10 11]
]

Answer 2

也许最好先制作一个“ 3,6的零矩阵”，然后分别在每个值中设置（这意味着首先将文件中的数据放入一维pdl（）中），我将使用open（）将其读入然后，将一个缩放器放入一维陷阱中； 可能涉及其中……一旦您将其放入一维小提琴中，请执行以下操作：

open(FILE,"yourfile"); while (<FILE>) { $x = $_; } 
    close FILE;

   $y = zeros(3,6);
p  $x = sequence(18);
 [0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17]
for $c(0..5) { for $d(0..2) {  $y($d,$c) .= $x($e++)   }}  
p $y
 [ 0  1  2]
 [ 3  4  5]
 [ 6  7  8]
 [ 9 10 11]
 [12 13 14]
 [15 16 17]