ファイル名: j/get_post.cgi
#!/usr/local/bin/perl
# --------------------------------------------------------------
# POST/GET でデータ取得 (ファイル名: get_post.cgi )
# --------------------------------------------------------------
$Title = 'GET&POST データの取得';
# --------------------- PERL -------------------------------
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $QUERY_DATA, $ENV{'CONTENT_LENGTH'});
} else { $formdata = $ENV{'QUERY_STRING'}; }
# --------------------- HTML -------------------------------
print"Content-type: text/html\n\n";
print <<__HTML__;
<HTML>
<HEAD>
<TITLE>$Title</TITLE>
</HEAD>
<BODY bgcolor="#000000" text="#ffff99">
<P>
データ取得結果<P>
<TABLE border="2">
<TBODY>
<TR>
<TD>\$ENV{'REQUEST_METHOD'} </TD>
<TD>$ENV{'REQUEST_METHOD'}</TD>
</TR>
<TR>
<TD>\$QUERY_DATA </TD>
<TD>$QUERY_DATA</TD>
</TR>
<TR>
<TD>\$ENV{'CONTENT_LENGTH'} </TD>
<TD>$ENV{'CONTENT_LENGTH'}</TD>
</TR>
<TR>
<TD>\$ENV{'QUERY_STRING'} </TD>
<TD>$ENV{'QUERY_STRING'}</TD>
</TR>
</TBODY>
</TABLE>
<P>
</BODY>
</HTML>
__HTML__
exit;