今日の占いカウントダウン

#!/usr/bin/perl ############################################################## # uranaiCGI Rev. 1.00 # Created by Web新撰組（萩原逸郎） # Created on 2000年11月03日 # # support http://www.web-kyoto.com/ # # 再配布厳禁 $Copyright="

\ \ uranaiCGI1.00\

"; ############################################################## $t=time;$t+=(3600*10); ($d,$m,$y)=(gmtime($t))[3..5]; $seed=$d . $m . $y . "1"; srand($seed); $m++;$y+=1900; @range=(0,1,2,3,4,5,6,7,8,9,10); @col_range=("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F"); @recname=("牡羊座","牡牛座","双子座","蟹座","獅子座","乙女座","天秤座","蠍座","射手座","山羊座","水瓶座","魚座"); for($i=0;$i<12;$i++){ $num=rand(11); $count_a=$range[$num]; $num=rand(11); $count_b=$range[$num]; $num=rand(11); $count_c=$range[$num]; $heikin=($count_a + $count_b + $count_c)/3; $heikin=(int($heikin * 100))/100; $num=rand(16); $cdmy=$range[$num]; $color=$col_range[$cdmy]; for($j=0;$j<5;$j++){ $num=rand(16); $cdmy=$range[$num]; $color=$color . $col_range[$cdmy]; } $kekka[$i]=join(':',$heikin,$count_a,$count_b,$count_c,$color,$recname[$i]); $keys[$i]=$heikin; } sub bydatakeys { $keys[$b] <=> $keys[$a];} @sorted=@kekka[sort bydatakeys $[..$#kekka]; print <<"EOL"; Content-type: text/html 今日の占いカウントダウン戻る今日の占いカウントダウン
$y 年 $m 月 $d 日
EOL $rank=1; foreach $data (@sorted){ ($heikin,$count_a,$count_b,$count_c,$color,$name)=split(/:/,$data); print "\n";$rank++; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } print "

運番	星座		運指数	幸運色
$rank	$name	恋愛	"; for($i=1;$i<=$count_a;$i++){ print ""; } print " $count_a
		おかね	"; for($i=1;$i<=$count_b;$i++){ print ""; } print " $count_b
		勉強・お仕事	"; for($i=1;$i<=$count_c;$i++){ print ""; } print " $count_c

\n";