站长论坛 站长下载

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

　 2007年06月01日01:46:50　 评论(1条) 字体:[大 中 小]
相关热点： 应用 之二 开发 利用 服务器 print 图形 程式

----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.0200OK\n\";
print\"Content-type:image/gif\r\n\";
print\"\r\n\";
#如果传输的图形文件为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.0200OK\n\";print\"Content-Type:text/html\n\n\";这两行）和多加一行print\"Location:http://***\",\"\n\n\";即可。（http://***为任意的url地址）

----源程序为：

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

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

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

责任编辑：

上一篇：利用Perl开发Internet/Intranet应用之一  
下一篇：利用Perl开发Internet/Intranet应用之二(4)

收藏本文 打印本文 　 告诉好友　 投稿邮箱

相关新闻

·访问CGI变量
·LB5000XP论坛配合SERV-U获取系统管理员权限
·获取随机的由大小写字母和数字组成的八位密
·Perl在NT下的快速简便安装方法 （转）
·用Perl制作页面计数器 (转载于上海热线)
·用Perl语句来代替常用的操作系统命令
·用 perl 实现文件上传

最新评论共有 1 位网友发表了评论

发表评论

评论内容：不能超过250字，需审核，请自觉遵守互联网相关政策法规。

用户名： 密码： 验证码： 匿名? 注册

最新图文

• 
  做就做自己喜欢的
• 
  什么样的网上简历最“抢
• 
  一个女站长的网络历程
• 
  盘点"非主流"的发展史

• 
  Photoshop简单几步快速
• 
  Photoshop参数预设与图
• 
  Photoshop简单几步打造
• 
  无价：Photoshop制作一

新闻线索

如果你有站长界人事变动、重组并购、变革技术出现，以及产品投诉等重要新闻线索，请告诉我们，我们会给予特别关注。
0631-3653338
站长中国编辑部
站长中国24小时新闻热线： 13256307008