Perlコーディング初心者質問スレ Part 38

[0741 nobodyさん 04/11/15 04:31:28 ID:???]

こんなんじゃ？
for(@data){
$data{$_}=abs(4 - (split(/,/,$_))[1]);
}
foreach (sort {$data{$a} <=> $data{$b}} keys %data){
print $_, "\n";
}