投稿者：mrnkn 　投稿日：2007/04/28(土)11時54分24秒　 ■　 ★　 
あとランダムタイトルのコードをはりつけとこうか、そんな大層なもんじゃないが
くずはのソースに

# 掲示板の名前
$bbstitle = 'あやしいわーるど＠くずは';

というぶぶんがあるはずだがそこを

# 掲示板の名前
@bbstitle_cdt = (
'＠寝る',
'＠寝るる',
'＠寝ます( \'-\')ﾉ',
'人生について考えるのに忙しいため閉鎖します',
);
$bbstitle = $bbstitle_cdt[int(rand(@bbstitle_cdt))];

とかするだけだよ



＞ハコエラ 　投稿者：松 　投稿日：2007/04/27(金)12時26分48秒　 ■　 ★　 ◆ 
> > タイトルをひとまかせにするとカオスるのであんまりすすめられないが
> > いくつかある候補を全部埋め込んでおいてですね。
> > つーか今もリロードでタイトルがときどきかわるわけですが。
> > あと点取りのソースは持ってないです。
> 点取りなら出せるよ　Perlわかんないのでくずは丸ごとになるけど(;´Д`)

###############################################################################
#  点取り占い処理（2000のパクり）
###############################################################################

sub fortune {
	
	my ( @fortunetext, $fortunetext, $points );
	my ( @mark ) = ( '×', '▲', '▲', '△', '△', '●', '●', '○', '○', '◎', '◎' );
	
	open ( IN, "./data/fortune.dat" );
	@fortunedata = <IN>;
	close ( IN );
	
	$points = int(rand(@mark));
	
	$fortunetext = "$fortunedata[int(rand(@fortunedata))] $mark[$points]$points点";
	$fortunetext =~ s/\n//g;
	$fortunehtml = <<EOF;
  <HR>
<TT><a href=http://$ENV{'HTTP_HOST'}/cgi-bin/fortuneadd.cgi target=link>点取り占い</a>：$fortunetext</TT>
EOF
	return $fortunehtml;
}

fortune.cgiの実行結果は
$fortunetxtに乱数で吐き出して
$fortunehtmlに表示する

###############################################################################
#  フォーム部分表示
###############################################################################

sub prtform {

	my $dtitle = $_[0];
	my $dmsg = $_[1];
	my $dlink = $_[2];
	my ( $bbslink, $gzipchk, $counter, $mbrcount, $reloadbutton, $fortunehtml );

	# プロテクトコード生成
	my $ptext = &pcode;

	# カウンタ
	$counter = &counter;
	$mbrcount = &mbrcount;
	$fortunehtml=&fortune;

フォーム部分で展開して
あとは
$fortunehtml
をスクリプト表示部のどこかに置けばOK(ﾟДﾟ)長文ｽﾏﾝｺ

参考：2007/04/27(金)09時38分16秒