ファイル名: w/split.cgi

#!/usr/local/bin/perl


$Title = 'split';

# ------------------- 関数 hogehoge ほげほげ?---------------

#@ ここに関数を使ったプログラムを書く!
#コピーしただけ

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

@pairs = split(/&/,$QUERY_DATA);
@pairs2 = split(/&/,$formdata);

# ----------------------HTML-------------------

print "Content-type: text/html\n\n";

print <<__HTML__;

<HTML>
<HEAD>
<TITLE>$Title</TITLE>
</HEAD>
<BODY BGCOLOR="#000000" TEXT="#C0C0C0">

<blockquote>
1. \$QUERY_DATA の、結果
<BR><BR>
$QUERY_DATA
<BR><BR>
2. \$ENV{'CONTENT_LENGTH'} は、文字数?
<BR><BR>
$ENV{'CONTENT_LENGTH'}

<BR><BR>
3. \$ENV{'QUERY_STRING'} (GET)の、結果は、どう?
<BR><BR>
$ENV{'QUERY_STRING'}
<BR><BR>
\$formdata
<BR><BR>
$formdata


<HR><BR><BR>
<font size="4">
1. \@pairsの、結果
<BR><BR>
@pairs
<BR><BR>
2. \@pairs2の、結果
<BR><BR>
@pairs2
</font>
</blockquote>

</BODY>
</HTML>

__HTML__

exit;