ホームページからデータを受け取る
<FORM METHOD=GET ACTION="../cgi-bin/query.cgi">
名前: <INPUT TYPE="text" NAME="NAME" SIZE=10>
E-Mail:<INPUT TYPE="text" NAME="MAIL" SIZE=20>
<INPUT TYPE="submit" VALUE="送信">
</FORM>
これを、ブラウザで表示すると、次のようになります。
<textarea name="message" cols="60" rows="8"></textarea>
<select name="etc1"> <option value="">性別 <option value="男性">男 性 <option value="女性">女性 </select>
<UL> <LI><INPUT type="radio" checked name="1" value="1"> 1年生 <LI><INPUT type="radio" name="1" value="2">2年生 <LI><INPUT type="radio" name="1" value="3">3年生 <LI><INPUT type="radio" name="1" value="4">4年生 </UL>
<UL> <LI><INPUT type="checkbox" name="2" value="1"> デスクトップ <LI><INPUT type="checkbox" name="2" value="2"> ノート型 <LI><INPUT type="checkbox" name="2" value="3"> 携帯型 <LI><INPUT type="checkbox" name="2" value="4"> 携帯電話 </UL>
#!/usr/bin/perl
# GETメソッドの場合
if( $ENV{'REQUEST_METHOD'} eq "GET" ) {
$buffer = $ENV{'QUERY_STRING'};
# POSTメソッドの場合
} else {
read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} );
}
print "Content-Type: text/html\n\n\n";
print "<b>Method</b> ", $ENV{'REQUEST_METHOD'}, "<br>\n";
print "<b>Data</b> ", $buffer, "\n";

