Flash と CGI とで連携する

var url = "http://hakuhin.jp/test.cgi?user=taro&age=18&blood=b";

getURL(url , "_blank");

// 送信したいパラメータをセット
this.user = "taro";
this.age = 18;
this.blood = "b";

// パラメータを送信しつつ 外部の CGI ページを開く
getURL("http://hakuhin.jp/test.cgi" , "_blank" , "POST");

var url = "http://hakuhin.jp/test.cgi?user=taro&age=18&blood=b";

loadVariables(url , _root.recv);

// 送信したいパラメータをセット
this.user = "taro";
this.age = 18;
this.blood = "b";

// CGI にパラメータを送信して結果を _root.recv に格納する
loadVariables("http://hakuhin.jp/test.cgi" , _root.recv , "POST");

onClipEvent (load) {

	this.user = "taro";
	this.age = 18;
	this.blood = "b";

	// CGI にパラメータを送信して結果をここに格納する
	loadVariables("http://hakuhin.jp/test.cgi" , this , "POST");

}

onClipEvent (data) {

	trace("受信成功");

}

// 送信したいパラメータをセット
this.user = "taro";
this.age = 18;
this.blood = "b";

// CGI の結果の読み込み完了時に呼び出されるイベント
_root.recv.onData = function (){
	trace("受信成功");
};

// CGI にパラメータを送信して結果を _root.recv に格納する
loadVariables("http://hakuhin.jp/test.cgi" , _root.recv , "POST");

var url = "http://hakuhin.jp/test.cgi?user=taro&age=18&blood=b";

loadVariablesNum(url , 1);

// 送信したいパラメータをセット
this.user = "taro";
this.age = 18;
this.blood = "b";

// CGI にパラメータを送信して結果を _level1 に格納する
loadVariablesNum("http://hakuhin.jp/test.cgi" , 1 , "POST");

var url = "http://hakuhin.jp/test.cgi?user=taro&age=18&blood=b";

_root.recv.loadVariables(url);

// 送信したいパラメータをセット
_root.recv.user = "taro";
_root.recv.age = 18;
_root.recv.blood = "b";

// CGI にパラメータを送信して結果を _root.recv に格納する
_root.recv.loadVariables("http://hakuhin.jp/test.cgi" , "POST");

onClipEvent (load) {

	this.user = "taro";
	this.age = 18;
	this.blood = "b";

	// CGI にパラメータを送信して結果をここに格納する
	this.loadVariables("http://hakuhin.jp/test.cgi" , "POST");

}

onClipEvent (data) {

	trace("受信成功");

}

// 送信したいパラメータをセット
_root.recv.user = "taro";
_root.recv.age = 18;
_root.recv.blood = "b";

// CGI の結果の読み込み完了時に呼び出されるイベント
_root.recv.onData = function (){
	trace("受信成功");
};

// CGI にパラメータを送信して結果を _root.recv に格納する
_root.recv.loadVariables("http://hakuhin.jp/test.cgi" , "POST");

var load_obj = new LoadVars();

var send_obj = new LoadVars();	// 送信用
var recv_obj = new LoadVars();	// 受信用

// 送信したいパラメータをセット
send_obj.user = "taro";
send_obj.age = 18;
send_obj.blood = "b";

// CGI にパラメータを送信して結果を recv_obj に格納する
send_obj.sendAndLoad("http://hakuhin.jp/test.cgi",recv_obj,"POST");

var send_obj = new LoadVars();	// 送信用
var recv_obj = new LoadVars();	// 受信用

// 読み込み処理終了時に呼び出されるイベント
recv_obj.onLoad = function (success){
	if(success){
		trace("受信成功");
	}else{
		trace("受信失敗");
	}
};

// 送信したいパラメータをセット
send_obj.user = "taro";
send_obj.age = 18;
send_obj.blood = "b";

// CGI にパラメータを送信して結果を recv_obj に格納する
send_obj.sendAndLoad("http://hakuhin.jp/test.cgi",recv_obj,"POST");

var send_obj = new LoadVars();	// 送信用
var recv_obj = new LoadVars();	// 受信用

// 送信したいパラメータをセット
send_obj.user = "taro";
send_obj.age = 18;
send_obj.blood = "b";

// CGI にパラメータを送信して結果を recv_obj に格納する
send_obj.sendAndLoad("http://hakuhin.jp/test.cgi",recv_obj,"POST");

// 毎フレーム実行されるイベント
onEnterFrame = function (){
	if(recv_obj.loaded){
		trace("受信成功");
	}else{
		trace("受信中");
	}
};

var send_obj = new LoadVars();	// 送信用
var recv_obj = new LoadVars();	// 受信用

// 送信したいパラメータをセット
send_obj.user = "taro";
send_obj.age = 18;
send_obj.blood = "b";

// CGI にパラメータを送信して結果を recv_obj に格納する
send_obj.sendAndLoad("http://hakuhin.jp/test.cgi",recv_obj,"POST");

// 毎フレーム実行されるイベント
onEnterFrame = function (){
	trace("読込" + recv_obj.getBytesLoaded());
	trace("全体" + recv_obj.getBytesTotal());
	trace("パーセント" + Math.floor(recv_obj.getBytesLoaded() / recv_obj.getBytesTotal() * 100));
};

var send_obj = new LoadVars();	// 送信用
var recv_obj = new LoadVars();	// 受信用

// HTTPステータスを取得
recv_obj.onHTTPStatus = function (code){
	trace("CODE:" + code);
};

// 送信したいパラメータをセット
send_obj.user = "taro";
send_obj.age = 18;
send_obj.blood = "b";

// CGI にパラメータを送信して結果を recv_obj に格納する
send_obj.sendAndLoad("http://hakuhin.jp/test.cgi",recv_obj,"POST");

#!/usr/local/bin/perl

# GETメソッドであるか調べる
if ($ENV{'REQUEST_METHOD'} eq "GET") {

}

#!/usr/local/bin/perl


# パラメータを格納する為の連想配列
%request_param;

# GETメソッドであるか調べる
if ($ENV{'REQUEST_METHOD'} eq "GET") {
	
	# URL の ? 以降の文字列を取得する
	$query = $ENV{'QUERY_STRING'};

	# "&" で区切って、配列に格納する
	@list = split(/&/,$query);
	foreach(@list) {

		# "=" で区切る
		($k,$v) = split(/=/,$_);

		# URL デコードを行い値を連想配列に格納する
		$request_param{"$k"} = UrlDecode($v);
	}
}


#// -----------------------------------------------------
#// ＵＲＬデコード
#// -----------------------------------------------------
sub UrlDecode {
	my $str = @_[0];
	$str =~ tr/+/ /;
	$str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
	return $str;
}

#!/usr/local/bin/perl

# POSTメソッドであるか調べる
if ($ENV{'REQUEST_METHOD'} eq "POST") {

}

#!/usr/local/bin/perl


# パラメータを格納する為の連想配列
%request_param;

# POSTメソッドであるか調べる
if ($ENV{'REQUEST_METHOD'} eq "POST") {
	
	# 標準入力からパラメータを取得する
	read (STDIN, $query, $ENV{'CONTENT_LENGTH'});

	# "&" で区切って、配列に格納する
	@list = split(/&/,$query);
	foreach(@list) {

		# "=" で区切る
		($k,$v) = split(/=/,$_);

		# URL デコードを行い値を連想配列に格納する
		$request_param{"$k"} = UrlDecode($v);

	}
}


#// -----------------------------------------------------
#// ＵＲＬデコード
#// -----------------------------------------------------
sub UrlDecode {
	my $str = @_[0];
	$str =~ tr/+/ /;
	$str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
	return $str;
}

#!/usr/local/bin/perl


# Content-type を出力
print "Content-type:application/x-www-form-urlencoded\n\n";

#!/usr/local/bin/perl


# Content-type を出力
print "Content-type:application/x-www-form-urlencoded\n\n";

# 変数
$user = "hanako";
$age = 16;
$blood = "o";

# パラメータを出力
print "user=" . "$user";
print "&";
print "age=" . "$age";
print "&";
print "blood=" . "$blood";

<?php

	# GETメソッドであるか調べる
	if ($_SERVER['REQUEST_METHOD'] == "GET") {

	}

?>

<?php

	# パラメータを格納する為の連想配列
	$request_param;

	# GETメソッドであるか調べる
	if ($_SERVER['REQUEST_METHOD'] == "GET") {

		foreach ( $_GET as $k => $v){

			# URL デコードを行い値を連想配列に格納する
			$request_param{"$k"} = urldecode($v);
		}
	}

?>

<?php

	# POSTメソッドであるか調べる
	if ($_SERVER['REQUEST_METHOD'] == "POST") {

	}

?>

<?php

	# パラメータを格納する為の連想配列
	$request_param;

	# POSTメソッドであるか調べる
	if ($_SERVER['REQUEST_METHOD'] == "POST") {

		foreach ( $_POST as $k => $v){

			# URL デコードを行い値を連想配列に格納する
			$request_param{"$k"} = urldecode($v);
		}
	}

?>

<?php

	# Content-type を出力
	header("Content-type:application/x-www-form-urlencoded");

?>

<?php

	# Content-type を出力
	header("Content-type:application/x-www-form-urlencoded");

	# 変数
	$user = "hanako";
	$age = 16;
	$blood = "o";

	# パラメータを出力
	echo "user=" . $user;
	echo "&";
	echo "age=" . $age;
	echo "&";
	echo "blood=" . $blood;

?>

#!/usr/local/bin/ruby

# GETメソッドであるか調べる
if ENV['REQUEST_METHOD'] == "GET" then

end

#!/usr/local/bin/ruby


# ライブラリをロード
require 'cgi'

# パラメータを格納する為の連想配列
request_param = Hash.new

# GETメソッドであるか調べる
if ENV['REQUEST_METHOD'] == "GET" then

	# URL の ? 以降の文字列を取得する
	query = ENV['QUERY_STRING']

	# "&" で区切る
	for q in query.split("&") do
		# "=" で区切る
		k, v  = q.split("=",2)

		# URL デコードを行い連想配列に格納
		request_param[k] = CGI.unescape(v);
	end
end

#!/usr/local/bin/ruby

# POSTメソッドであるか調べる
if (ENV['REQUEST_METHOD'] == "POST") {

}

#!/usr/local/bin/ruby


# ライブラリをロード
require 'cgi'

# パラメータを格納する為の連想配列
request_param = Hash.new

# POSTメソッドであるか調べる
if ENV['REQUEST_METHOD'] == "POST" then

	# 標準入力からパラメータを取得する
	query = STDIN.read(ENV['CONTENT_LENGTH'].to_i)

	# "&" で区切る
	for q in query.split("&") do
		# "=" で区切る
		k, v  = q.split("=",2)

		# URL デコードを行い連想配列に格納
		request_param[k] = CGI.escape(v);
	end
end

#!/usr/local/bin/ruby

# Content-type を出力
print "Content-Type: application/x-www-form-urlencoded\n\n"

#!/usr/local/bin/ruby

# Content-type を出力
print "Content-Type: application/x-www-form-urlencoded\n\n"

# 変数
user = "hanako"
age = 16
blood = "o"

# パラメータを出力
print "user=" + user
print "&"
print "age=" + age.to_s
print "&"
print "blood=" + blood

#!/usr/local/bin/python
# coding: utf-8


# ライブラリをロード
import os

# GETメソッドであるか調べる
if os.getenv('REQUEST_METHOD') == "GET" :
	print "GET METHOD"

#!/usr/local/bin/python
# coding: utf-8


# ライブラリをロード
import os
import urllib

# パラメータを格納する為の連想配列
request_param = dict()

# GETメソッドであるか調べる
if os.getenv('REQUEST_METHOD') == "GET" :

	# URL の ? 以降の文字列を取得する
	query = os.getenv('QUERY_STRING')

	# "&" で区切る
	for q in query.split('&') :
		# "=" で区切る
		k, v  = q.split("=",2)

		# URL デコードを行い連想配列に格納
		request_param[k] = urllib.unquote(v)
	

#!/usr/local/bin/python
# coding: utf-8


# ライブラリをロード
import os

# POSTメソッドであるか調べる
if os.getenv('REQUEST_METHOD') == "POST" :
	print "POST METHOD"

#!/usr/local/bin/python
# coding: utf-8


# ライブラリをロード
import os
import sys
import urllib

# パラメータを格納する為の連想配列
request_param = dict()

# POSTメソッドであるか調べる
if os.getenv('REQUEST_METHOD') == "POST" :

	# 標準入力からパラメータを取得する
	query = sys.stdin.read(int(os.getenv('CONTENT_LENGTH')))

	# "&" で区切る
	for q in query.split('&') :
		# "=" で区切る
		k, v  = q.split("=",2)

		# URL デコードを行い連想配列に格納
		request_param[k] = urllib.unquote(v)
	

#!/usr/local/bin/python
# coding: utf-8


# ライブラリをロード
import sys

# Content-type を出力
sys.stdout.write("Content-Type: application/x-www-form-urlencoded\n\n")

#!/usr/local/bin/python
# coding: utf-8


# ライブラリをロード
import sys

# Content-type を出力
sys.stdout.write("Content-Type: application/x-www-form-urlencoded\n\n")

# 変数
user = "hanako"
age = 16
blood = "o"

# パラメータを出力
sys.stdout.write("user=" + user)
sys.stdout.write("&")
sys.stdout.write("age=" + str(age))
sys.stdout.write("&")
sys.stdout.write( "blood=" + blood)

System.useCodepage = true;

var str = "あいうえお";
str = escape(str);

trace(str);