#!/usr/local/bin/perl
require 'libcgi.pl';
$title = "フォームのサンプル(文字列入力)";
@data = (
"データ00",
"データ01",
"データ02");
# URL decode
&decode_form();
# FROM入力モード (key/val)
$mode = $FORM{'mode'};
&head_html();
if ($mode eq 'val') {
$in_val = $FORM{'in_val'};
&out_html();
} else {
&in_html();
}
&foot_html();
exit(0);
sub head_html {
print "Content-type: text/html\n\n";
print "
$title\n";
print "\n";
print "$title
\n";
}
sub in_html {
print "
入力テキスト
\n";
print "\n";
print "
選択入力テキスト
\n";
print "\n";
print "
ラジオボタン
\n";
print "\n";
}
sub out_html {
print "出力テキスト
\n";
print "val = $in_val
\n";
}
sub foot_html {
print "
\n";
print "このCGIのソース:\n";
print "form01.cgi\n";
print "libcgi.pl
\n";
print "
データ形式:
\n";
print "\n";
print "val |
\n";
foreach $data (@data) {
print "$data |
\n";
}
print "
\n";
print "\n";
}