#!/usr/local/bin/perl
#                                                                                                    
# アクセス毎に違うものをＨＴＭＬに貼り付けるスクリプト

####################################################################################
# ↓ここに貼り付ける内容(文章やタグなど)を設定する　(個数は任意)
#
# 　・' 'の間に書く。
# 　・シングルクォーテーション'を書く場合は ' ' ではなく " " で囲む。 

@words = (

'文字１',
'<b>文字２</b>',
'画像 <img src="aqua.gif">',
'<h3>文字３</h3>',
'<font color=red>文字４</font>',

);

#
####################################################################################

if (open(F, "+< ./change.dat")) {

	flock F, 2;

	while (<F>) {

		s/\n//g;
		$CODE = $_;

		if ($CODE eq "") { $CODE = "0"; }
	}

	eval 'truncate F,0;';
	seek(F,0,0);

	print $words[$CODE];

	$CODE++;
	if ($CODE > $#words) { $CODE = "0"; }
	print F $CODE;
	close(F);
}
else { print "ERROR"; }

# 製作・著作
# ネットサーフレスキュー[Ｗｅｂ裏技] (c)CGI-RESCUE http://www.rescue.ne.jp/