cgi-lib.pl による入力
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";
■実行結果
0 1 2 3 4 



alf=C&num=0&num=1&num=3&sub=%91%BE%98Y
C 0 1 3
太郎


HOME Copyright (C) CGI-design All Rights Reserved.