ポイント制にしたい

質問

perlを使用しています。

　友達といっしょにジフを作っています。しかし、どちらの絵がユーザーに気に入ってもらえるか評価したいのですがその方法としてクリックした時のポイント制にしたいと思っています。　
　画像をクリックをした時点でＤＢに1クリックしたことをperlで作成するためにどのようなことをやればいいのか教えていただけないでしょうか？
　サンプル等があれば教えてください。お願いします。

回答No.2

kokucho81

#!/usr/bin/perl

use CGI;
$q = new CGI;

if ($q->param) {
open(FH, "+<report.txt");
@report=split/,/,<FH>;
seek(FH,0,0);
truncate(FH,0);
$report[$q->param("num")]++;
print FH join(',',@report);
close FH;
}
print<<HTML;
Content-Type: text/html

<a href='$0?num=0'><img src='0.GIF'></a><BR>
<a href='$0?num=1'><img src='1.GIF'></a><BR>
HTML

exit;

好きな名前を付けてアップ
report.txtは結果が入る一種のカウンタ。

あとは、自力でやらんとな。