Perlについての質問箱 32箱目
■ このスレッドは過去ログ倉庫に格納されています
0147デフォルトの名無しさん
2007/08/20(月) 08:27:05ランキングカウントが出なくなりました。
以前は
「山田さん、6回目の優勝、おめでとうございます!」
とかって出ていたのに、
「山田さん、回目の優勝、おめでとうございます!」
になりました。
原因がよくわかりません。
ソースを以下に貼り付けるので、よく読んで
回答してください。
http://kazato.run.buttobi.net/cgi-bin/upload/src/viprpg_tktk0338.png (png画像)
if(defined($DT[0]))
{
#その時点でのトップの店のTOPカウンタを+1
$DT[0]->{rankingcount}++;
#優勝者発表
my $DT=$DT[0];
my $count=$DT->{rankingcount}==1 ? "first championship " : $DT->{rankingcount}." times championship ";
my $msg="This term champion store is ".$DT->{shopname}.$count."congratulations.";
WriteLog(1,0,0,$msg,1);
$msg="point is ".$DT->{point};
$msg.="and the gap from the second is ".($DT->{point}-$DT[1]->{point})."point" if defined($DT[1]);
$msg.="";
WriteLog(1,0,0,$msg,1);
}
■ このスレッドは過去ログ倉庫に格納されています