栏目列表
 
 
首页 > 站长学院 > 其它网页编程 > 利用Perl开发Internet/Intranet应用之二(3)
 

利用Perl开发Internet/Intranet应用之二(3)

日期：2005-04-17 00:00:00  来源：中国站长学院
请您记住思索网的网址： http://www.4so.net  [加入收藏夹]

    ----3 图形文件的处理

----虽然client经常向服务器申请的都是text/html文件，但是服务器也可以回送GIF、JPG等图形文件，我们只需在数据的header中指明即可。假如我们用< imgsrc="http://10.0.0.1/Scripts/te.pl" >语句调用CGI程式,向服务器申请一个GIF文件，则服务器收到请求后会以二进制码的形式回送一个GIF的图形文件给client。te.pl源程序如下：


#!/bin/perl
#如果该路径已加入PATH中，上句可省
$MY_FILE_NAME='c:/InetPub/wwwroot/photo/1.gif';
#图形文件存放的路径
$CHUNK_SIZE=4096;
#如果图形文件较大，该值可相应取大一些

#header
print"HTTP/1.0200OKn";
print"Content-type:image/gifrn";
print"rn";
#如果传输的图形文件为JPG文件，
只需把"image/gif"改为"image/jpeg"

open(MY_FILE,"< $MY_FILE_NAME")
ordie("Can'topen$MY_FILE_NAME:$!n");
binmode(MY_FILE);
binmode(STDOUT);
#设置传输模式为二进制代码
while($cb=read(MY_FILE,$data,$CHUNK_SIZE))
{
print$data;
}
close(MY_FILE);


----4 如何实现服务器重导

----服务器重导也就是ServerRedirection。我们不但可以利用CGI程式产生虚拟文件，还可以要求服务器送出一个已经存在的文件（该文件可以是本服务器的，也可以是网上任意的页面），这就是服务器重导。详见下图：


1请求2
------ >---- >
4服务器重导3
client< ------server
< ----CGI(Application)
5产生虚拟文件
< ----

----做法是：在CGI程式中不要header（即不要print"HTTP/1.0200OKn";print"Content-Type:text/htmlnn";这两行）和多加一行print"Location:http://***","nn";即可。（http://***为任意的url地址）

----源程序为：

----#！/bin/perl
----print"Location:http://***","nn";

----另外，可用JavaScriptForclient的语句书写，但含重导语句的页面需先出现，会有闪烁的效果。附程式如下：

< Script >
Location.href="http://***";
< /Script >

  本文地址：http://www.4so.net/web/mix/1401.html
将本页加入收藏夹  将地址复制到剪贴板发送给好友  若发现本文有误或版权问题点击这里

 
 
热门信息
 
相关文章
 
 
文章评论 收藏本文 打印本文 关闭窗口