ファイル名： j/get_post.cgi

#!/usr/local/bin/perl


# --------------------------------------------------------------
# POST/GET でデータ取得　（ファイル名：　get_post.cgi ）
# --------------------------------------------------------------

$Title = 'GET&POST データの取得';

# --------------------- ＰＥＲＬ -------------------------------

if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $QUERY_DATA, $ENV{'CONTENT_LENGTH'});
} else { $formdata = $ENV{'QUERY_STRING'}; }

# --------------------- ＨＴＭＬ -------------------------------

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;