CGI 不是语言而是common language gateway, 是借助STDIN, STDOUT来操作,简单的例子,
#!/usr/bin/perl -wTprint "Content-type: text/html\n\n";print <Test Page Hello, world!
EndOfHTML
把以上cgi,放在www docuements的目录里,
访问
CGI.pm Module
The CGI.pm 模块式 Perl 5.004里面的标准库。
use CGI qw(:standard);The qw(:standard) 表示我们从CGI.pm.调用"standard" 函数。调用函数,如果不传参数,可以不要括号,如下,functionname(arguments)CGI.pm有很多函数,我们可以用的如以下几个,header;start_html;end_html;例如,print start_html("Hello World");会打印出,Hello World 例如,print start_html(-title=>"Hello World", -bgcolor=>"#cccccc", -text=>"#999999", -background=>"bgimage.jpg");会打印出如下,end_html 会打印如下的标签因为perl是OO的,你可以完全读懂以下两段程序是一个意思,use CGI qw(:standard);print header;print start_html("Hello World");以下是OO的,use CGI; # don't need qw(:standard)$cgi = CGI->new; # ($cgi is now the object)print $cgi->header; # function call: $obj->functionprint $cgi->start_html("Hello World");再上一个完整的程序,
#!/usr/bin/perl -wTuse CGI qw(:standard);print header;print start_html("Hello World");print "Hello, world!
\n";print end_html;