#!/usr/local/bin/perl print "Content-type: text/html\n\n"; print ''; #-------------------------------------------------------- #---------------データ　ファイルネーム $formfile = './count.dat'; #---------------ロード open(FILE,"$formfile"); $olds=; close(FILE); @oldf=split('&',$olds); @oldf=sort{$b<=>$a}@oldf; #-----配列を大から小にソート #---------------ロード　ランキング print 'DANGER ZONE2 RANKING'; print ''; print '


RANKING
'; print '
'; print 'TOPPAGE

'; $p=0; $r=1; print '
'; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; foreach $each_oldf (@oldf){ @pp=split('=',$oldf[$p]); print ''; # print "($r)_$pp[0]_$pp[1]_$pp[2]_$pp[3]
"; print ''; print ''; print ''; print ''; print ''; print ''; print ''; $p++; $r++; } print '
RANKSCORENAMEDATEVIDEO CARDBENCH MARK
'."$r".''."$pp[0]".''."$pp[1]".''."$pp[2]".''."$pp[3]".''."$pp[4]".'
'; print '


'; print 'TOPPAGE
'; print 'BY.DANZIG

';