Perl使用自定义比较功能查找最小值

Question

有没有办法在自定义比较函数的数组中找到最小值,除了排序它并采取第一项？

Answer 1

您可以使用reducefrom 创建一个List::Util.

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

如果要比较字符串,例如,替换<为le(尽管List::Util也是导出minstr).