Perl 使用自定义比较函数查找最小值

Question

有没有一种方法可以使用自定义比较函数在数组中找到最小值，除了对它进行排序并取第一项？

Answer 1

您可以使用 reduce 创建一个来自 List::Util .

use List::Util qw/reduce/;
$min = reduce { $a < $b ? $a : $b } 1..10 # regular minimum

如果你想比较字符串，例如，替换<与 le (尽管 List::Util 也导出 minstr )。