#!/usr/local/bin/perl # -*- mode: Perl; -*- print "Content-Type: text/html\n\n"; # Config ############################################# ($SEC, $MIN, $HOUR, $MDAY, $MON, $YEAR, $WDAY, $YDAY, $ISDST) = localtime(time); $YEAR += 1900; $COLOR1 = "#98fb98"; # ランキングの色 $COLOR2 = "#ffd700"; # タイトルの色 $RANKS = 50; # 何位まで出力するか $VERSION = "1.5"; ($PROGRAM = $0) =~ s@.*/@@; $DEBUG = 0; # Read File ########################################## $BASEDIR = "/home/home2/share/WWW/html/misc/roguelike/quiz"; open(ENAME, "$BASEDIR/ename"); $EMAILLIST = ":"; while(){ # 全角スペース↓ $_ =~ /^([0-9\/]+)\-([0-9:]+): quiz .{0,1} (\d+) (\d+) (\S+)　(\S*)\s+\((\S+)\)/; $DATE = $1; $TIME = $2; $QMAX = $3; $QX = $4; $JNAME = $5; $EMAIL = $6; $MACHINE = $7; print "DATE:$DATE, TIME:$TIME, QMAX:$QMAX, QX:$QX\n" if ($DEBUG); print "JNAME:$JNAME, EMAIL:$EMAIL, MACHINE:$MACHINE\n" if ($DEBUG); $PARC = $QX * 100 / $QMAX; $KEY = $DATE . "-" . $TIME; print "PARC:$PARC, KEY:$KEY\n" if ($DEBUG); # 一人ひとつだけ表示 (E-mail address で区別) if($EMAIL =~ /^\s*@/ || $EMAIL =~ /@\s*$/ || $EMAIL =~ /^\s*$/){ next; } # E-mail がないもの 且つ 内部は登録しない if((!($EMAIL =~ /@.+/)) && (!($MACHINE =~ /\./))){ next; } $EMAIL =~ /^\S+@(\S+)$/; $DOMAINNAME = $1; print "EMAILLIST[$EMAILLIST],EMAIL[$EMAIL],JNAME[$JNAME]\n" if ($DEBUG); if(!($EMAILLIST =~ /:$EMAIL:/)){ $SCORE{$KEY} = $PARC; $SDATE{$KEY} = $DATE; # $SNAME{$KEY} = $JNAME . " (" . $EMAIL . ")"; $SNAME{$KEY} = $JNAME . " @" . $DOMAINNAME . ""; $EMAILLIST .= $EMAIL . ":"; $EMAIL2KEY{$EMAIL} = $KEY; }elsif($EMAILLIST =~ /:$EMAIL:/){ print "MATCH!\n" if ($DEBUG); $OLDKEY = $EMAIL2KEY{$EMAIL}; print "OLDKEY[$OLDKEY]\n" if ($DEBUG); print "PARC[$PARC], SCORE{OLDKEY}[$SCORE{$OLDKEY}]\n" if ($DEBUG); if($PARC <= $SCORE{$OLDKEY}){ # こっちの方がいい print "delete SCORE{OLDKEY}[$SCORE{$OLDKEY}]\n" if ($DEBUG); delete $SCORE{$OLDKEY}; print "delete SDATE{OLDKEY}[$SDATE{$OLDKEY}]\n" if ($DEBUG); delete $SDATE{$OLDKEY}; print "delete SNAME{OLDKEY}[$SNAME{$OLDKEY}]\n" if ($DEBUG); delete $SNAME{$OLDKEY}; $EMAIL2KEY{$EMAIL} = $KEY; $SCORE{$KEY} = $PARC; $SDATE{$KEY} = $DATE; # $SNAME{$KEY} = $JNAME . " (" . $EMAIL . ")"; $SNAME{$KEY} = $JNAME . " @" . $DOMAINNAME . ""; } } } close(ENAME); # Header ############################################# print< RogueLike\@lab3: Quiz Score Ranking $PROGRAM ver.$VERSION (by K)

- NH Quiz: Score Ranking -

Thank you for playing!
EofHeader printf "As of $YEAR / %d / $MDAY ( %02d:%02d )", $MON+1, $HOUR, $MIN; print " localtime
\n"; print "

\n"; # Print Ranking ####################################### print< Rank.DateScoreName (Not E-MAIL address!) EofTtag @SORTEDKEYS = sort by_score keys(%SCORE); sub by_score { $SCORE{$a} <=> $SCORE{$b}; } $I = 1; $PREP = 101; foreach(@SORTEDKEYS){ if($I > $RANKS){ last; } $RS = 100.0 - $SCORE{$_}; if($PREP > $RS){ $NUM = $I; }else{ $NUM = $PREN; } if($RS == 100){ $BGC = "yellow"; }elsif($RS >= 80){ $BGC = "cyan"; }elsif($RS >= 70){ $BGC = "green"; }elsif($RS >= 50){ $BGC = "pink"; }elsif($RS >= 30){ $BGC = "red"; }else{ $BGC = "gray";} # printf "$SDATE{$_}%2.1f%%$SNAME{$_}
\n", $RS; printf "$NUM$SDATE{$_}%2.1f%%$SNAME{$_}
\n", $RS; $PREP = $RS; $PREN = $NUM; $I++; } # Footer ############################################### print<

roguelike-admin@lab3.kuis.kyoto-u.ac.jp
EofFooter # end ################################################### exit(0);