[Perl] 잡다(Sort, .....)

[Perl] 잡다

sorting

[Normal List]

foreach my $user ( keys %_Hash_OrderBook )

[Number(Float 포함)]

sort { $a <=> $b } ....... 

foreach my $idx ( sort {$a <=> $b} keys %{$_Hash_OrderBook{$user}{$sym}{$market}} )

[String]

sort  ....... 

foreach my $key ( sort keys %{$_Hash_OrderBook{$user}} )

[역순]

reverse sort

foreach my $market ( reverse sort keys %{$_Hash_OrderBook{$user}{$sym}} )

[Key 지정]

foreach $key ( sort { $_Hash_OrderList{$user}{$a}{price} <=> $_Hash_OrderList{$user}{$b}{price} } (keys %{$_Hash_OrderList{$user}}) )