ホームページからデータを受け取る
<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";