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

时间： 2021-07-31 作者：daque

----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应用之二(3)

相关推荐

推荐下载

热门阅览

最新排行