#! /usr/bin/perl # パラメータの取得 $buffer = ""; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } $querybuffer = $ENV{'QUERY_STRING'} . '&' . $buffer; # パラメータの分割 my @pairs = split(/&/,$querybuffer); foreach $pair (@pairs) { my ($name, $value) = split(/=/, $pair); # 分解 if( $name eq "name" ) { $username = $value; # 名前 } elsif( $name eq "email" ) { $useremail = $value; # メールアドレス } } # 表示 print "パラメータ全体:$querybuffer\n"; print "分割: 名前=$username, メール=$useremail\n"; exit;