SSI Image Rand

ssi_img.cgi を組み込んで、乱数で石を並べます。
呼び出す毎に(更新ボタンのクリックでも)石の数が変わります。

プログラムの説明

  1. 乱数で石を並べる ssi_imgrand.shtml を shift-jis でタイプします。
    <body> の始めで ssi_img.cgi を呼び出します。
    ssi_img.cgi を組み込んで、乱数で石を並べます。<br>
    <!--#exec cgi="./ssi_img.cgi"-->
    
  2. ssi_imgrand.shtml から呼び出される ssi_img.cgi です。
    shift-jis でタイプして、実行権を設定して下さい。
    $n= int(rand(10)+1); で 1〜10の乱数を発生して、$n の数だけ jewel.gif を並べます。
    #!/usr/local/bin/perl --
    print "Content-type: text/html\n\n";
    
    $n= int(rand(10)+1);
    for($i=0; $i<$n; $i++)
    {   print "<img src=\"img/jewel.gif\">\r\n";
    }
    
  3. あらかじめ img/jewel.gif を準備しておいて下さい。
    更新ボタンをクリックする毎に石の数が変わるので確かめて下さい。
    試しに ssi_img.cgi を utf-8 でアップロードしてみましたが、動きませんでした。

前田稔の超初心者のプログラム入門
超初心者のプログラム入門(Perl)