データを降順・昇順に並び替えるには

解決済

質問者：active0904
質問日時：2005/09/14 16:55
回答数：2件

現在ポケモン図鑑を作っていまして、（＾＾；
下記のようなものが書かれたファイルを読み込んで表示しています。

・・・
25,ピカチュウ,でんき,6,
26,ライチュウ,でんき,30,
27,サンド,じめん,12,
・・・

1行ずつがそのポケモンのデータで、4つ目には「重さ」が入るようになっています。
それで、ポケモンをリスト表示してその中から選ぶようになっているんですけど、それを重さが重い順、あるいは軽い順にして表示するにはどうすればいいのでしょうか。

回答する気おきないと思いますが、
よろしくお願いします。

参考＞http://poke.sub.jp/poke_cgi/web_poke/main.cgi

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： Tacosan
回答日時：2005/09/14 18:35

そ～いうリストが @cards という配列にあるとすれば,

@sorted_cards = sort { (split(/,/, $a))[3] < (split(/,/, $b))[3]; } @cards;
で昇順にソートできます.

- 0
- 件

通報する

この回答へのお礼

原理が分かりませんでしたがすごいです！

ありがとうございました。

通報する

お礼日時：2005/09/14 22:45

No.2

回答者： okiyoshi
回答日時：2005/09/14 22:50

sortのデフォルトは文字(バイナリ)ソートなので、

体重は数値としてソートした方がいいんじゃないかと・・

@pokemon_listにデータがあるとして・・

my @sorted_list = sort {
　# (*1)昇順の場合
　(split /,/, $a)[3] <=> (split /,/, $b)[3];
} @pokemon_list;

降順の場合は、(*1)が、
　(split /,/, $b)[3] <=> (split /,/, $a)[3];
となりまする。

ちなみに、[perl sort]でググると・・

参考URL：http://www.rfs.jp/sitebuilder/perl/05/func/sort. …