●はじめに

毎回メッセージをランダムに表示するスクリプトです。

●実行例（このページをリロードしてみよう）

●導入手順

１.「rndmes.cgi」とメッセージファイル「message.txt」を入手します

ここをクリックするとファイルが拾えます

これをFTPで自分のサイトに転送します。もちろんメッセージは自分で作ろう。

２.ファイルのパーミッションを変更します

$chmod 755 rndmes.cgi

※「$」はUNIXのプロンプトだから入力する必要はないよ。

３.動作確認をします

$./rndmes.cgi

rndmes.cgiを何度か実行して、メッセージがランダムに表示されればOKです。

４.HTML文書にスクリプトを実行するための1行を入れます

<!--#exec cmd="rndmes.cgi"-->

●リスト

#!/usr/local/bin/perl
#ランダムメッセージ▲(c)p4room(http://p4room.mda.or.jp/~roro/)

	srand(time|$$);
	$file="message.txt";

	open(FILE,"$file") || die "$fileが開けません";
	@lines=<FILE>;			#ファイルを@lines配列変数に読み込む
	close(FILE);

	$a=int(rand($#lines + 1));	#0〜@linesの最大数の乱数を発生
	print "$lines[$a]";
exit;