ファイル名: 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;