順位 LV 名前 体力/精神 攻撃/防御/統率/敏捷 武具 防具 階級 行動 20 5 aaa 16/16 7/5/8/11 ---- ---- 浪人 待機中 >> 備考: 男 格言: 27 2 bbb 12/11 5/4/2/5 ---- ---- 浪人 待機中 >> 備考: 男 格言: 34 2 ccc 11/11 2/3/4/3 ---- ---- 浪人 待機中 >> 備考: 男 格言:
# ソートに必要なデータを用意する $LV_V{$R{'nm'}} = $R{'rank'}; $ST_V{$R{'nm'}} = $sprintf("%02d%03d",$R{'rank'},$R{'lv'}); ... (省略) ... # ソート部分 # foreach $nm (sort sclv keys(%LV_V)){ foreach $nm (sort sclv keys(%ST_V)){ $lv_v = $LV_V{$nm}; next if($lv_v<=0); if($lv_v<$prv_lv){ $rk = $l; } # sub sclv{ $LV_V{$b} <==> $LV_V{$a}; } sub sclv{ $ST_V{$b} <==> $ST_V{$a}; } |