練習問題の答

1. SSI占いプログラム（ssi_uranai.cgi）

   #!/usr/local/bin/perl
   
   # 乱数初期化
   #srand(time());
   
   # 0から4の乱数を発生
   $ransu = int(rand(5));
   
   if ($ransu == 4) {
   $unsei = "大吉";
   } elsif ($ransu == 3) {
   $unsei = "中吉";
   } elsif ($ransu == 2) {
   $unsei = "吉";
   } elsif ($ransu == 1) {
   $unsei = "凶";
   } else {
   $unsei = "大凶";
   }
   
   print "Content-type: text/html\n\n";
   
   print $unsei;

SSI利用HTMLタグ（shtmlファイル内に記述）

あなたの今日の運勢は<!--#exec cgi="ssi_uranai.cgi"-->です。<br>

2. SSIランダム画像表示プログラム(ssi_image.cgi)

   #!/usr/local/bin/perl
   
   # 乱数初期化
   #srand(time());
   
   # 0から4の乱数を発生
   $ransu = int(rand(5));
   
   if ($ransu == 4) {
   $image = '<img src="hana.gif">';
   } elsif ($ransu == 3) {
   $image = '<img src="yama.gif">';
   } elsif ($ransu == 2) {
   $image = '<img src="umi.gif">';
   } elsif ($ransu == 1) {
   $image = '<img src="kawa.gif">';
   } else {
   $image = '<img src="sora.gif">';
   }
   
   print "Content-type: text/html\n\n";
   
   print $image;

   SSI利用HTMLタグ（shtmlファイル内に記述）

   <!--#exec cgi="ssi_image.cgi"-->