- printenv.cgi - CGIの環境変数と標準入力の値を表示する
このCGIのプログラムは以下の通り。Perlで書かれている。
#!/usr/bin/env perl
print "Content-Type:text/html; charset=Shift_JIS\n\n";
print "<html><body>\n";
print "<h3>環境変数</h3><table border=1>\n";
print "<tr><th>変数名</th><th>値</th></tr>";
foreach(sort keys %ENV) {
print "<tr><td>$_</td><td>$ENV{$_}</td></tr>\n";
}
print "</table>";
print "<h3>標準入力</h3><table border=1>\n";
while(<>) {
print "<tr><td>$_</td></tr>\n";
}
print "</table>";
print "</body></html>";
- 上のCGIにパラメータ(tuis=100)を渡してみる。
-
このフォームのHTMLは以下の通り。
<form method=get action=printenv.cgi>
<input type=text size=4 name="tuis" value="100">
<input type=submit value="上のCGIにフォームからパラメータを渡してみる">
</form>
-
このフォームのHTMLは以下の通り。
<form method=post action=printenv.cgi>
<input type=text size=4 name="tuis" value="100">
<input type=submit value="上のCGIにフォームからパラメータを渡してみる">
</form>