Perl PDL是否有无需迭代、按另一向量最值钳位向量的内置方法？

PDL 提供了完全向量化的内置钳位能力，无需手写晦涩的比较逻辑，也不需要通过unpdl/re-pdl做数据结构转换产生额外开销。

可用内置方法 #

• 新版PDL（2.077及以上）直接提供clamp函数，支持逐元素传入对应上下限，所有计算在C层向量化执行，无Perl层循环开销。
• 所有PDL版本均支持pmin（逐元素取两个PDL的较小值，即上限钳位）、pmax（逐元素取两个PDL的较大值，即下限钳位）两个二元操作，组合使用即可实现全版本兼容的钳位逻辑。

代码示例 #

直接调用clamp（推荐，新版PDL） #

use PDL;
# 原始待处理向量
my $data = pdl [4.45, 5.55, 45, -3, 120];
# 逐元素匹配的下限、上限向量
my $min_thresh = pdl [0, 0, 0, 0, 80];
my $max_thresh = pdl [2, 3, 50, 10, 100];

my $result = clamp($data, $min_thresh, $max_thresh);
print $result;
# 输出：[2 3 45 0 100]

单边界限幅 #

你之前实现的仅最大值钳位逻辑，用pmin可以一行完成，写法简洁且性能更高：

my $data = pdl [4.45, 5.55, 45];
my $max_thresh = pdl [2, 3, 50];
my $max_clamped = pmin($data, $max_thresh);
print $max_clamped;
# 输出：[2 3 45]

如果仅需要下限钳位，调用pmax($data, $min_thresh)即可。

全版本兼容的双边界幅 #

如果使用的PDL版本低于2.077，没有独立的clamp函数，嵌套调用pmin和pmax即可实现完全等价的效果：

# 效果和clamp($data, $min_thresh, $max_thresh)完全一致
my $result = pmax( pmin($data, $max_thresh), $min_thresh );

性能说明 #

• 上述所有方法均为PDL原生向量化实现，全程操作PDL连续内存块，不会触发PDL对象到Perl原生数组的转换，性能和你手写的太空船操作符组合逻辑持平甚至更高。
• 避免使用unpdl/re-pdl的转换方案：该方案会将PDL存储的连续数值拆分为独立Perl标量，数据量较大时性能会下降2~3个数量级。

内容的提问来源于stack exchange，提问作者KJ7LNW