在Linux系统下实现Server Push

由于Linux的开放性，极大激发了程序员的创造力，使得以Linux为作业平台的新技术不断出现。Server Push(推技术)就是其中一例。它可在完全不增加成本的基础上，使网站达到最佳的性能。本文将对其进行详细介绍。
一、环境配置
为了在Linux下更充分领略Server Push的功能，在运行环境上，我们需进行一些选择。
1.WWW服务器
首先要在Linux上安装Apache，以便能自由编译功能模块，这样可以充分使用Server Push、FastCGI、EPerl和PHP等新的扩展功能。
2.脚本支持
笔者推荐用Perl或C语言来写CGI脚本，因为Perl已经是CGI脚本程序事实上的标准。而且在Perl 5中已经可以直接调用 C子程序而不需要任何声明。不管你用什么语言来写CGI脚本，解释器中应该有CGI.PM模块，笔者试用的版本是 5.004，这一模块的更新版大家可以从网上下载。
二、程序实例及函数剖析
好了，有了上面的工具，下面我们就来写一个Server Push程序来说明它的实现过程：

　　

　　　　＃!/usr/bin/perl

　　

　　　　use CGI qw/:push －nph/;

　　

　　　　＄| = 1;

　　

　　　　print multipart—init(－boundary=〉′－－boundary′);

　　

　　　　while (1) {

　　

　　　　print multipart—start(－type=〉′text/plain′),

　　

　　　　″The current time is ″,scalar(localtime),″\n″,

　　

　　　　multipart—end;

　　

　　　　sleep 1;

　　

　　　　}

程序第二行告诉CGI解释程序来调用支持Server Push 的功能模块(CGI.PM)，在这个模块中预先定义了三个函数：multipart—init()、multipart—start()和multipart—end，只要在程序中有use CGI qw/:push －nph/声明，就可以直接使用这三个函数。

multipart—init()函数的作用是声明一个文档类型，就像普通的CGI程序中的“Content－Type: text/html”声明，告诉服务器下面传送的是HTML文档，而multipart—init()这一函数声明的文件类型却是实现Server Push最根本的方法类型：

　　

　　　　Content－Type: multipart/x－mixed－replace; boundary=′－－boundary′

如果你对HTTP的MIME类型有详细的了解，你就知道multipart 类型是一种复合类型，它的子类型是mixed，子类型的X参数，大家可以参看详细的MIME类型说明，这里最关键的是replace方法，它不停地用新接收的数据更新旧的数据，这就是 Server Push最大的技术内涵。boundary只是一个边界值，告诉浏览器从这儿开始，使用Server Push方法了。其实你完全可以这样理解，只要在脚本程序中声明了如multipart/x－mixed－replace 这样一个文档类型，服务器就和客户机建立了一个特别的连接。服务器就不断地把客户机请求的数据源源不断地推向了客户机。而传统的 Client PULL方法则是：

1.Client 和Server建立连接；

2.Client发送请求到Server；

3.Server响应请求；

4.Server 断开连接以响应下一请求。

通过这两种方法的比较，大家可以看出Server Push优点主要在于服务器和客户机之间这种不间断的连接方式，使它不需要采用Client PULL的〈META http－equiv=refresh content=″n″〉这种方法来刷新页面，不仅更新速度快，而且不会产生闪动效果。

如果你不用multipart—init()而直接在脚本程序中用以下语句也可以达到同样目的：print ″Content－Type: multipart/x－mixed－replace; boundary=′boundary′\n\n″。当系统不支持multipart—init()函数时，就可以直接这样声明。

　　

　　　　sub multipart—init {

　　

　　　　my(＄self,@p) = self—or—default(@—);

　　

　　　　my(＄boundary,@other) = ＄self－〉rearrange([BOUNDARY],@p);

　　

　　　　＄boundary = ＄boundary || ′－－－－－－－ =—aaaaaaaaaa0′;

　　

　　　　＄self－〉{′separator′} = ″\n－－＄boundary\n″;

　　

　　　　＄type = Server—Push(＄boundary);

　　

　　　　return ＄self－〉header(

　　

　　　　－nph =〉 1,

　　

　　　　－type =〉 ＄type,

　　

　　　　(map { split ″=″, ＄—, 2 } @other),

　　

　　　　) . ＄self－〉multipart—end;

　　

　　　　}

　　

　　　　sub multipart—start {

　　

　　　　my(＄self,@p) = self—or—default(@—);

　　

　　　　my(＄type,@other) = ＄self－〉rearrange([TYPE],@p);

　　

　　　　＄type = ＄type || ′text/html′;

　　

　　　　return ＄self－〉header(

　　

　　　　－type =〉 ＄type,

　　

　　　　(map { split ″=″, ＄—, 2 } @other),

　　

　　　　);

　　

　　　　}

　　

　　　　sub multipart—end {

　　

　　　　my(＄self,@p) = self—or—default(@—);

　　

　　　　return ＄self－〉{′separator′};

　　

　　　　}

三、应用技巧

使用Server Push的其它技巧，限于篇幅，笔者不再作过多的介绍。不过有时由于客户机在一段时间内没有对服务器发生请求，也就是若一段时间内没有新的内容向浏览器输入，可能发生连接超时现象，用下面的程序来处理一下就能很好地解决：

　

　　　　＄message=1;

　　

　　　　＄whilecount=1;

　　

　　　　do {

　　

　　　　　　主程序;

　　

　　　　　　＄message＋＋;

　　

　　　　　　}

　　

　　　　if (＄whilecount == 30)

　　

　　　　{

　　

　　　　print ″〈SCRIPT〉＄message〈/SCRIPT〉\015\012″;

　　

　　　　＄whilecount = 0;

　　

　　　　}

　　

　　　　＄whilecount＋＋;

　　

　　　　sleep 1;

　

这种技巧大家一看就明白了，正如很多 FTP软件的Loop一样，在空闲时发一个空信号，不让程序进入等待状态。这段程序每过30秒就给客户机输出一行〈SCRIPT〉＄message〈/SCRIPT〉，而＄message是数值1、2、3等，这一行在浏览器浏览时并不显示任何内容，让浏览者感觉不到。