先頭の浮動小数点数で文字列をソートする方法

Question

私は文字列の配列を持っています。各文字列には、パイプ文字で区切られた複数のフィールドがあります。私は各文字列の最初のフィールドで文字列の逆数値ソートを行いたいと思います。私はうまく動作するいくつかのperlコードを書いたし、これを書くためにもっと洗練された方法があるのだろうかと思います。

sub by_firstField { 
    my @tmpA = split (/\|/, $a) ; 
    my @tmpB = split (/\|/, $b) ; 
    if ($tmpA[0]> $tmpB[0]) { -1 } elsif ($tmpA[0] < $tmpB[0]) { 1 } else { 0 } 
} 

push @unsorted, ("8.02|a|b|c", "47.6|d|e|f", "108.1|g|h|i", "411.5|j|k|l", "8.1|m|n|o") ; 

@sorted = sort by_firstField @unsorted ; 

for (my $i = 0 ; $i <= $#sorted; $i++) { 
    print $sorted[$i] . "\n" ; 
} 

そして、ここでの出力です： `

411.5|j|k|l 
108.1|g|h|i 
47.6|d|e|f 
8.1|m|n|o 
8.02|a|b|c 

Answer 1

sort { 
    my @fields_a = split /\|/, $a; 
    my @fields_b = split /\|/, $b; 
    $fields_b[0] <=> $fields_a[0] 
} 

または

sort { ($b =~ /([^|]*)/)[0] <=> ($a =~ /([^|]*)/)[0] } 

または

map $_->[0], 
sort { $b->[1] <=> $a->[1] } 
map [ $_, split /\|/ ],