WWWForm 网页表单

// Grab a screen shot and upload it to a CGI script.
//获取一个截屏并上传到CGI脚本
// The CGI script must be able to hande form uploads.
//该CGI脚本必须能处理表单上传

var screenShotURL= "http://www.my-server.com/cgi-bin/screenshot.pl";

// Take a screen shot immediately
//立即截屏
function Start() {
	UploadPNG();
}

function UploadPNG() {
	// We should only read the screen after all rendering is complete
	//我们应该只在所有渲染完成后读取屏幕
	yield WaitForEndOfFrame();

	// Create a texture the size of the screen, RGB24 format
	//创建屏幕大小的纹理，RGB24格式
	var width = Screen.width;
	var height = Screen.height;
	var tex = new Texture2D( width, height, TextureFormat.RGB24, false );
	// Read screen contents into the texture
	//读取屏幕内存到纹理
	tex.ReadPixels( Rect(0, 0, width, height), 0, 0 );
	tex.Apply();

	// Encode texture into PNG
	//编码纹理为PNG
	var bytes = tex.EncodeToPNG();
	Destroy( tex );

	// Create a Web Form
	//创建一个Web表单
	var form = new WWWForm();
	form.AddField("frameCount", Time.frameCount.ToString());
	form.AddBinaryData("fileUpload", bytes, "screenShot.png", "image/png");

	// Upload to a cgi script
	//上传到一个CGI脚本
	var w = WWW(screenShotURL, form);
	yield w;
	if (w.error != null)
		print(w.error);
	else
		print("Finished Uploading Screenshot");
}

// This example assumes that the user has entered his name into a
// variable called name and that score contains the user's current
// score.
//这个例子假设玩家已经输入了他的名称到一个name变量中并且score包含玩家的当前分数

var highscore_url = "http://www.my-site.com/highscores.pl";
var playName = "Player 1";
var score = -1;

function Start() {
	// Create a form object for sending high score data to the server
	// 创建一个表单来发送高分数据到服务器
	var form = new WWWForm();
	// Assuming the perl script manages high scores for different games
	// 假设perl脚本为不同的游戏管理高分
	form.AddField( "game", "MyGameName" );
	// The name of the player submitting the scores
	// 玩家提交的名称
	form.AddField( "playerName", playName );
	// The score
	// 分数
	form.AddField( "score", score );

	// Create a download object
	//创建一个下载对象
	var download = new WWW( highscore_url, form );

	// Wait until the download is done
	//等待直到下载完成
	yield download;

	if(download.error) {
		print( "Error downloading: " + download.error );
		return;
	} else {
		// show the highscores
		// 显示高分
		Debug.Log(download.text);
	}
}

#!/usr/bin/perl
# The SQL database needs to have a table called highscores
# that looks something like this:
#
# CREATE TABLE highscores (
# game varchar(255) NOT NULL,
# player varchar(255) NOT NULL,
# score integer NOT NULL
# );
#
use strict;
use CGI;
use DBI;

# Read form data etc.
my $cgi = new CGI;

# The results from the high score script will be in plain text
print $cgi->header("text/plain");

my $game = $cgi->param('game');
my $playerName = $cgi->param('playerName');
my $score = $cgi->param('score');

exit 0 unless $game; # This parameter is required

# Connect to a database
my $dbh = DBI->connect( 'DBI:mysql:databasename', 'username', 'password' )
	|| die "Could not connect to database: $DBI::errstr";

# Insert the player score if there are any
if( $playerName && $score) {
	$dbh->do( "insert into highscores (game, player, score) values(?,?,?)",
		undef, $game, $playerName, $score );
}

# Fetch the high scores
my $sth = $dbh->prepare(
	'SELECT player, score FROM highscores WHERE game=? ORDER BY score desc LIMIT 10' );
$sth->execute($game);
while (my $r = $sth->fetchrow_arrayref) {
	print join(':',@$r),"\n"
}