Free CGI Perl PHP Script Olive Design CGI

ランダムでhtmlファイルを表示

おみくじのスクリプトを利用して外部htmlファイルを一つランダムで読み込み

ファイル名randam.cgiを作成し、下のソースを貼り付けてパーミションを755にします。

外部htmlファイル0.html 1.html 3.htmlを用意して同じranam.cgiとフォルダに設置します。

サンプル

ソース randam.cgi

#!/usr/bin/perl
                                                             
#randは()で指定した数まで乱数を発生させる関数です。
#intは引数の少数部分を切り捨てて整数にする関数。
#出てきた乱数を$ranに代入。
$ran = int(rand(3));

#外部のhtmlファイルを読み込み
#0.html 1.html 3.html三種類をランダムで一つ読み込み。
open(HTML, "$ran.html");
@log = <HTML>;
close(HTML);

#HTMLの表示
print "Content-type: text/html\n\n";
print <<"EOF";
@log
EOF

exit;


__END__

Perl PHP Free CGI Script OliveDesign CGI

プライバシーポリシー / 特定商取引法に基づく表示