perl - 如何 (sort {$a<=>$b;} @_)[0];工作？

Question

我曾经读过下面的 Perl 子程序

sub min{
  (sort  {$a<=>$b;}  @_)[0];
}

这里怎么理解sort和@_的用法呢？ [0] 代表什么？

Answer 1

(...)[0] 返回括号内列表的第一个元素。

因此您的示例实际上与:

sub min{
  my @tmp = sort { $a <=> $b } @_; # sort numerically
  $tmp[0];
}

或

sub min{
  my ($return) = sort { $a <=> $b } @_; # sort numerically
  $return;
}

---

我想再指出一件事，上面的代码效率极低。尤其是在大型未排序列表上。

这是一个更明智的做法:

sub min{
  $min = shift;
  for( @_ ){
    $min = $_ if $_ < $min;
  }
  return $min;
}

这基本上与用于 Pure Perl 的算法相同min 的版本在 List::Util .

你真的应该只使用 min来自 List::Util .