Web Agent - [Perl]Perlサンプル

[トップページ] [戻る]
#! /usr/local/bin/perl
#
#-------------------------------------------------------------
# フォームデータの受け取り
#-------------------------------------------------------------
#
	$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
	if ($ENV{'REQUEST_METHOD'} eq "POST") {
		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	}
	else {
		$buffer = $ENV{'QUERY_STRING'};
	}

	@pairs = split(/&/, $buffer);
	foreach $pair (@pairs) {
		($key, $value) = split(/=/, $pair);
		$value =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		$form{$key} = $value;
	}

	$name = $form{'name'};
	$email = $form{'email'};

# 受け取った結果をHTML出力します
	print "Content-type: text/html\n\n";
	print "<HTML>\n";
	print "<BODY>\n";
	print "<CENTER>\n";
	print "お名前：$name<BR>\n";
	print "E-Mail：$email<BR>\n";
	print "</CENTER>\n";
	print "</BODY>\n";
	print "</HTML>\n";

	exit;