ランキングリストを作りたいんですが・・・

質問

local($data) = @_;
$data =~ s/\n$//;
($name,$lv,$hp,$gp) = split(/,/,$data);
}
で、データを読み込んで、
<tr><td>$name</td><td>$lv</td><td>$hp</td><td>$gp</td></tr>\n";

という形で行ごとに出力しているんですが、これをきちんと並び替えて$lvの順に並ぶランキングリストを作りたいんです。

色々試してみたんですが、記録された順番のまま出力されてきたり、全然表示されなかったりでうまくいきません。

できるだけ初心者でも分かりやすい方法を教えてください。
よろしくお願いします。

回答No.1

noname#25358 · ベストアンサー

こういうのはどうでしょう？
　@data には、

　　$data[0] = "www,2,www,www";
　　$data[1] = "www,1,www,www";
　　$data[2] = "www,4,www,www";
　　$data[3] = "www,3,www,www";

　というデータが入っているものとし、

foreach ( @data ) {
　　($name,$lv,$hp,$gp) = split(/,/,$_);
　　$_ = "$lv,$name,$hp,$gp";
}
@data = sort { $a <=> $b } @data;
foreach ( @data ) {
　　($lv,$name,$hp,$gp) = split(/,/,$_);
　　$_ = "$name,$lv,$hp,$gp";
}

　あまりスマートなロジックじゃないですけど、これで $lv 順になります。
　昇順と降順を入れ替えるときは sort 関数の $a と $b を逆にします。
（見栄えのためにタブ文字を全角スペースにしてますので、コピーペーストするときはご注意を）

お礼

早速の御指導ありがとうございます。
教えて頂いたスクリプトを利用して、

　　$data[0] = "www,2,www,www";
　　$data[1] = "www,1,www,www";
　　$data[2] = "www,4,www,www";
　　$data[3] = "www,3,www,www";

の内容表示を、

local($data) = @_;
$data =~ s/\n$//;
foreach ( @data ) {
　　($name,$lv,$hp,$gp) = split(/,/,$_);
　　$_ = "$lv,$name,$hp,$gp";
}
@data = sort { $a <=> $b } @data;
foreach ( @data ) {
　　($lv,$name,$hp,$gp) = split(/,/,$_);
　　$_ = "$name,$lv,$hp,$gp";
}

としたんですが、何故か『$data[2]にはいってるデータ内容』だけが、$data[0]～$data[3] の分だけ出力されてしまいました・・・。
うまく説明できないんですが、
　　$data[2] = "www,4,www,www";
　　$data[3] = "www,3,www,www";
　　$data[0] = "www,2,www,www";
　　$data[1] = "www,1,www,www";
の順に出すはずが、出力されたのが
$data[2] = "www,4,www,www"
$data[2] = "www,4,www,www"
$data[2] = "www,4,www,www"
$data[2] = "www,4,www,www"
になってしまったんです。
どこを修正したらよいのか教えて頂けないでしょうか？
よろしくお願いします。