#! usr/bin/perl


#*****************
#lesson1　変数/print
	#$a='1';
	#$b="あのねのね";
	#$c=5;
	#$d=$a * $c;
	#
	#print "$a\n";
	#print "$b\n";
	#print "$c\n";
	#print "$d\n";


#*****************
#lesson2　分岐
#if(条件){処理}
#else{こっちの処理}

#	$a=2;
#	$b=2;
#	$c=3;
#
#	if ($a == 1){
#		print "1です。\n";
#	}
#	elsif ($a == 2){
#		print "2です。\n";
#	}
#	elsif ($a == 3){
#		print "3です。\n";
#	}
#	elsif ($a == 4){
#		print "4です。\n";
#	}
#	else{
#		print "i don't know!!!!!\n";d
#	}


#*****************
#lesson3 繰り返し
#for ($i=1; $i > 10; $i++)
#	{
#	}

#	$a=8;
#
#	for ($i=1; $i<10; $i++)
#	{
#		if ($i eq $a)
#		{
#		print "$iです。\n";
#		}
#	}


#for ($i=1; $i<=15; $i++){
#if ($i eq 5){
#print"go----!\n";}
#elsif($i eq 10){
#print"jyu--------!!\n";}
#elsif($i eq 15){
#print"jyu---go------!!\n";}
#}
#
# print "僕はねーーー！\n";

useCGI;  #perlのモジュール読み込み

$q=new CGI;  #モジュールの機能を変数に代入

@kuji=('大凶','凶','吉','小吉','末吉','中吉','大吉');   #リストに要素を代入

print "Content-type: text/html\n\n";  #なにをperlに埋め込むか宣言
print "<html><head></head><body>\n";  #htmlのタグをprint
print "<h1>おみくじ！</h1>\n";

srand(time);    #時間によってランダムに要素を取り出す

$kekka = int(rand 7);   

print $kuji[$kekka];  #結果を表示
print "<form method=\"POST\" action=\"./std1.cgi\">";  #htmlのフォームタグを表示
print "<input type=\"submit\" value=\"引く!\">";
print "</form>";
print "</body></html>\n\n";

exit(0); #終わりに必ず書く
