どのように（sort {$ a <=> $ b;} @_）[0];作業？

Question

私はかつてここに@_ソートの使用法を理解し、どのようにして

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

次のPerlサブルーチンを読みますか？ [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; 
} 

---

私は1つのより多くの事を指摘したいと思い、上記のコードは乱暴に非効率的です。特に大規模なソートされていないリストに。ここ

は、より賢明なアプローチである：

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

これは、基本的List::UtilにminのPure Perlバージョンに使用したのと同じアルゴリズムです。

あなたは本当にminからList::Utilを使用してください。

Answer 2

これは、パラメータをサブ配列（配列@_にある）に数値的にソートし、結果の最初の要素（[0]にあります）を返します。最初の要素はすべてのargの最小値です。それらはすべて数字であることを前提としています。