iswebでCGI:パラメータを参照する

今度は、CGIのパラメータの一覧を出力するCGIです。
ま、こんな感じで、参照できますという程度のものです。

動作例

適当に値を入れて、ボタンを押してみてください。

HTML のソースコード

以下のように、formタグのactionにCGIを指定して、あとは適当です。(なんでもいいです)
method が get になっていますが、post でも動作します。
チェックボックスが2つあり、どちらも同じ名前ですが、2つとも参照できます。
テキストエリアは、改行の扱いを、もうちょっと工夫できます。

<form method="get" action="cgi-bin/param.cgi">
テキスト: <input type="text" name="text1"><br />
ラジオ: <input type="radio" name="radio1" value="value1">value1
<input type="radio" name="radio1" value="value2">value2<br />
チェックボックス: <input type="checkbox" name="checkbox1" value="valuea">valuea
<input type="checkbox" name="checkbox1" value="valueb">valueb<br />
パスワード: <input type="password" name="password1"><br />
セレクト: <select name="select1">
<option value="valueA">valueA</option>
<option value="valueB">valueB</option>
<option value="valueC">valueC</option>
</select><br />
テキストエリア: <textarea name="textarea1" cols="20" rows="2"></textarea><br />
<input type="submit" value="Submit">
</form>

CGI のソースコード

#!/usr/local/bin/perl
use CGI;
use strict;

my $cgi = new CGI;
print $cgi->header, $cgi->start_html('Parameters');
print "<p><table border=\"1\">\n";
print "<tr><th>Name</th><th>Value</th></tr>\n";
my ($i, @params);
@params = $cgi->param();
for($i=0; $i<=$#params; $i++) {
	print "<tr><td>" . $cgi->escapeHTML($params[$i]) . "</td><td>" .
		$cgi->escapeHTML(join(",", $cgi->param($params[$i]))) .
		"</td></tr>\n";
}
print "</table></p>\n";
print $cgi->end_html;

▼ トップ

▼ プロフィール

▼ 個人的宣伝

LINUXサーバーインストール(FedoraCore4) Oracle10gのバックアップを本気で理解し実践: FC4 や Oracle のインストールの仕方～管理方法まで、詳しく載っています。 SearchManには情報がもりだくさんです。
いますぐ実践!Linuxシステム管理: システム管理初心者の方を対象に、システム管理のノウハウをお知らせします。
: 毎日栗の絵を描いています。
退屈なとき、癒されたいときなどに、ご覧ください。:-)