Perl PDL : Search if a vector is in an array or in a matrix

Question

我尝试像在 PDL 矩阵或 Vector 数组上做一个 grep:

my @toto;
push(@toto, pdl(1,2,3));
push(@toto, pdl(4,5,6));
my $titi=pdl(1,2,3);
print("OK") if (grep { $_ eq $titi} @toto);

我也试过

my @toto;
push(@toto, pdl(1,2,3));
push(@toto, pdl(4,5,6));
my $titi=pdl(1,2,3);
print("OK") if (grep { $_ eq $titi} PDL::Matrix->pdl(\@toto));

没有效果。

请帮忙

Answer 1

免责声明:我对 PDL 一无所知。我已阅读源代码以弄清楚这一点。

有一个函数 PDL::all() 可以与重载比较运算符 == 结合使用。

use PDL;
my $foo = pdl(1,2,3);
my $bar = pdl(4,5,6);
my $qrr = pdl(1,2,3);

print "OK 1" if PDL::all( $foo == $bar );
print "OK 2" if PDL::all( $foo == $qrr );

我仍在寻找文档。