|
cgi-lib.pl はフォーム入力データのデコードなどを処理するライブラリです。
&ReadParse; cgi-lib.plでデコード処理を行うサブルーチンです。
フォーム入力データの名前をnameとするとデータは$in{'name'}に格納されます。
複数選択できる「チェックボックス」の場合は各値が「\0」で区切られて格納されます。
require ライブラリを読み込みます。
例 require './cgi-lib.pl';
|
■プログラム （sample23.cgi）require './cgi-lib.pl';
&ReadParse;
$alf = $in{'alf'};
$sub = $in{'sub'};
@num = split(/\0/,$in{'num'});
foreach (@num) {$num{$_} = 1;}
print "<form action=\"sample23.cgi\" method=POST>\n";
print "<select name=alf>";
foreach (A .. G) {
if ($alf eq $_) {$sel = ' selected';} else {$sel = '';}
print "<option value=\"$_\"$sel>$_";
}
print "</select>\n";
foreach (0 .. 4) {
if ($num{$_}) {$chk = ' checked';} else {$chk = '';}
print "<input type=checkbox name=num value=\"$_\"$chk>$_ \n";
}
print "<br><input type=text name=sub size=30 value=\"$sub\"><br>\n";
print "<input type=submit value=\"入力\"></form>\n";
print "$in<br>$alf @num<br>$sub\n";
|
|
| ■実行結果 |