#!/usr/local/bin/perl #-------------------------------------------------------- #---------------データ　ファイルネーム $formfile = './count.dat'; #---------------ロード open(FILE,"$formfile"); flock(FILE,2); $oldf=; flock(FILE,8); close(FILE); #------------------------------ #------------------------------ sleep(1); #---------------backup　ファイルネーム $backupfile = './backup.dat'; #---------------ロード open(FILE,"$backupfile"); flock(OUT,2); $back=; flock(OUT,8); close(FILE); #---- @aaa=split(':',$oldf); @psn=split('=',$aaa[99]); if ($psn[0]<100) { $oldf=$back; } #------------------------------ #------------------------------ #---------------変換 @olp=split(':',$oldf); #-----ロードしたデータを配列化する @olp=sort{$b<=>$a}@olp; #-----配列を大から小にソート foreach $each_olp (@olp){ $ol=scalar(@olp); #-----配列の個数取得 if ($ol>100){$dd=pop @olp}; #-----配列の後ろ削除 } $newf=join(":",@olp); #----- $newf=$newf.":"; #----- #---------------セーブ-日にち #-----日にち @week_day=("sun","mon","tue","wed","thu","fry","sat"); ($sec,$min,$hour,$day,$mon,$year,$week)=localtime(time); $year+=1900; $day=sprintf("%02d",$day); $mon=sprintf("%02d",$mon+1); $weekd=$week_day[$week]; $hinichi="$year/$mon/$day"."(".$weekd.")"; #------セーブ $formfile = './back_up['.$weekd.'](1).dat'; @aaa=split(':',$newf); @psn=split('=',$aaa[99]); $newf=$newf."BACKUP_DATA_"."$hinichi"; if ($psn[0]>100) { open(OUT,">$formfile"); flock(OUT,2); print OUT $newf; flock(OUT,8); close(OUT); sleep(1); sleep(1); $formfile = 'backup.dat'; open(OUT,">$formfile"); flock(OUT,2); print OUT $newf; flock(OUT,8); close(OUT); } #-------------------------------------------------------- print "Content-type: text/html\n\n"; print ''."\n"; print 'DANGEROUS　EVOLUTION'."\n"; print ''."\n"; print '

'."\n"; #------------------ print '

'."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; #------------------ foreach $each_olp (@olp){ $j++; @oo=split('=',$olp[$i]); print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; $i++; } #------------------ print "
'."\n"; print 'RANK. '."\n"; print 'NAME. '."\n"; print 'SCORE. '."\n"; print 'LEVEL. '."\n"; print 'DATE.
'."\n"; print ''.$j.'. '."\n"; print ''.$oo[1].' '."\n"; print ''.$oo[0].' '."\n"; print ''.$oo[2].' '."\n"; print ''.$oo[3].'
"."\n"; print '

'."\n"; print '


TOP PAGE

'."\n"; print '

RankingCGI Ver1.03 By.DANZIG

'."\n"; print "";