フォームのボタンを押すと背景色を変更

　初歩から始める初心者向けPerl-CGI講座　■　


	`CGI`の設置方法
	フリーで配布されている`CGI`を設置する際の手順や注意事項などの説明です。

	`CGI`作成の初歩
	初めて`CGI`を作る方向けの手順を簡単な例で説明しています。

	`CGI`作成ヒント集
	こういう事をする時は、どのように行えばいいのか？など具体的な事例を紹介します。

	`CGI`の設置に関する用語
	`CGI`の作成に関する用語
	`CGI`の設置や作成時に使われている用語や関連知識を掲載しています。

	設置に関するFAQ
	作成に関するFAQ
	設置や作成をする際に起こりがちなトラブルの説明と、よくある質問とその回答を掲載しています。

フォームのボタンを押すと背景色を変更

サンプルは CGI にアクセスすると、ラジオボタンと送信ボタンが表示され、
ラジオボタンで色を選択して送信すると、背景色が変わるというものです。

#!/usr/local/bin/perl

#デコードするサブルーチンの呼び出し
&dec;

#HTMLページを表示する ------------------------------------------------
print "Content-type: text/html\n\n";
print <<"HTML";
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<META http-equiv="Content-Style-Type" content="text/css">
<TITLE>背景色を変更するサンプル</TITLE>
</HEAD>
<BODY bgcolor="$forminh{'color'}">
<CENTER>
<FORM method="POST" action="./test.cgi"><BR>
<INPUT type="radio" checked name="color" value="white">白　
<INPUT type="radio" name="color" value="blue">青　
<INPUT type="radio" name="color" value="red">赤　
<INPUT type="radio" name="color" value="green">緑　
<INPUT type="radio" name="color" value="yellow">黄
<BR>
<BR>
<INPUT type="submit" value="背景色を変更"><BR>
</FORM>
</CENTER>
</BODY>
</HTML>
HTML

exit;

#フォームからの値をデコードするサブルーチン ---------------------------
sub dec
{
	my ($formin,$name,$value,$tmp,@indata);
	
	read(STDIN, $formin, $ENV{'CONTENT_LENGTH'}); #データを受け取る

@indata = split (/&/,$formin); #データを＆で区切り、配列へ

foreach $tmp (@indata) #要素分（配列分）以下の処理を繰り返す
	{
		($name,$value) = split (/=/,$tmp); # =記号で区切り名前と値
		$forminh{$name} = $value; #区切った名前を付けた連想配列に
	}
}

関連項目

・　CGIの作成に関する用語
・　CGI作成に関するFAQ
・　連想配列の使い方
・　フォームからの値をデコード