既存のデータから、指定項目を抽出し表示させる？

解決済

質問者：ttoottoorroo
質問日時：2005/12/07 04:45
回答数：2件

1<>pass<>ip<>名前<>url<>spell<>kana<>initial1<>initial2<>点数<><>日付<>

上記のようなデータが１列づつ保存されているのですが、このデータの中の「名前」と「点数」のみを抽出し、
点数（100点満点）でランキングを10件表示する、というようなスクリプトを探しています。

<table>
<tr>
<td>順位</td>
<td>名前</td>
<td>得点</td>
</tr>
<tr>
<td>1位</td>
<td>あああ</td>
<td>90</td>
</tr>
<tr>
<td>2位</td>
<td>いいい</td>
<td>80</td>
</tr>
<tr>
<td>3位</td>
<td>ううう</td>
<td>70</td>
</tr>
</table>

かなり特殊な為、これだけのスクリプトは無いとは思うのですが、同様のデータをランキングするようなスクリプトがあれば、それを流用したいと考えています

ランキングの表示件数は10件でなくても構いません。
5件以上であれば、問題ありません。
「日付<>」の後には、まだまだ多くのデータが保存されており、全部書く必要がないかな？と思い省略させて頂きました

余分な機能がついていてもかまいません、どなたかこういったデータをランキングするスクリプトをご存じないでしょうか？
また、一から作ってみようかとも思い、いろいろ調べてみたりするのですが、全く筆が進みません

本当は、これだけの処理をするスクリプトがあればいいのでしょうが、かなり特化しすぎていると思いますので、作成の上で参考になるサイト、流用できそうなスクリプトなどありましたらご教授願います。
スクリプトはperlもしくはPHPでお願いします

通報する

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

質問の本文を隠す

回答 (2件)

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

No.1ベストアンサー

回答者： BLUEPIXY
回答日時：2005/12/07 06:39

サンプル：

%data=undef;
while(<DATA>){
@field = split /<>/;
$data{$field[3]}=$field[9];
}
$rank=1;
foreach $name (sort { $data{$b} <=> $data{$a} } keys %data){
print "rank:$rank, 名前：$name, 得点：$data{$name}\n";
last if $rank++ == 10; #１０位まで
}
__END__
1<>pass<>ip<>A<>url<>spell<>kana<>initial1<>initial2<>20<><>日付<>
2<>pass<>ip<>B<>url<>spell<>kana<>initial1<>initial2<>53<><>日付<>
3<>pass<>ip<>C<>url<>spell<>kana<>initial1<>initial2<>42<><>日付<>
4<>pass<>ip<>D<>url<>spell<>kana<>initial1<>initial2<>100<><>日付<>
5<>pass<>ip<>E<>url<>spell<>kana<>initial1<>initial2<>80<><>日付<>
6<>pass<>ip<>F<>url<>spell<>kana<>initial1<>initial2<>72<><>日付<>
7<>pass<>ip<>G<>url<>spell<>kana<>initial1<>initial2<>33<><>日付<>
8<>pass<>ip<>H<>url<>spell<>kana<>initial1<>initial2<>11<><>日付<>
9<>pass<>ip<>I<>url<>spell<>kana<>initial1<>initial2<>91<><>日付<>
10<>pass<>ip<>J<>url<>spell<>kana<>initial1<>initial2<>64<><>日付<>