CGI编程--Perl中使用CGI模块(二)-Perl-idc中文资讯站-客观公证的IDC产业权威媒体,关注域名、虚拟主机、服务器、网络、开源技术资讯，整合运营商资源，客观评价各地机房带宽线路质量、IDC企业名录等信息

CGI编程--Perl中使用CGI模块(二)

来源：linux宝库作者：linux宝库发布时间:2007-09-30 00:00:00

　　今天我们看看CGI.pm的两种使用模式，因为今后我们要经常和他打交道了。调用CGI模块的模式有两种，一种是面相对象方式的，另一种是面向过程的。下面的例子说明这两种调用方式，首先是面向过程的：

　　!/usr/bin/perl -w

　　use strict;

　　use CGI;

　　{

　　print header(),

　　start_html(),

　　h1("您好");

　　print end_html();

　　}

　　然后是面向对象方式的：

　　!/usr/bin/perl -w

　　use strict;

　　use CGI;

　　{

　　my $cgi = new CGI;

　　print $cgi->header(),

　　$cgi->start_html(),

　　$cgi->h1("您好"),

　　$cgi->end_html();

　　}

　　这两段代码是随手写的没有经过测试，我们能够不去管这两种代码是怎样实现的，仅仅知道有这么两种方式就能够了。另外，我建议使用面向对象的方式，因为面向对象方式的要比面向过程的方式效率高。

　　然后我们讲一讲CGI.pm中的函数调用方式。CGI模块经常使用下面的调用方式。

　　print $q->header(-type=>’image/gif’,-expires=>’+3d’);

　　header里面的参数实际上是个hash类型，这里面每个参数前面都有一个“-”(其意义为hypher)，可能看着有点不顺眼，但是看惯了就好了。由于这些带“-”的参数是个hash,因此我们能够使用下面的调用方式：

　　print $q->header({-type=>’image/gif’,-expires=>’+3d’});

　　#多了一个“{”

　　然后是看看header()函数。header函数生成的部分是我们在浏览器里面看不到的。但是也是不能没有的。这一部分是告诉浏览器应该对返回的信息进行什么处理，做什么事情的部分。下面是几个标准的header使用的例子：

　　$cgi->header("text/html"); #后面是个标准的html文档，他是一种text文档。

　　$cgi->header("image/gif"); #后面是一幅gif图。

　　在接下来的学习中我们会通过几个实际的例子来加深和巩固以上的内容，今天就到这里吧。

喜欢本文，那就收藏到：