perl--CGI编程之测试环境

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› Perl›Perl教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

可以用cgi对环境进行读取，直接用pint语句打印出来

#!d:/perl/bin/perl
use warnings;
use strict;

print "Content-type:text/html\n\n";
print "<HTML><HEAD><TITLE>Request Info</TITLE><HEAD> \n";

print "<BODY><BLOCKQUOTE><TABLE BORDER =1>\n";
foreach ('REQUEST_URI','REQUEST_METHOD','QUERY_STRING','PATH_INFO') {
print "\t<TR><TD> $_ </TD><TD>'";
print + (exists($ENV{$_}) and $ENV{$_})?$ENV{$_}:'Not provided';
print "</TD></TR> \n";
}
print "</TABLE> \n";
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
print "<BR><HR><BR> Request body: \n";
while (<>) {
print "$.: $_ \n";
}
}
print "</BLOCKQUOTE></BODY></HTML> \n";

用cgi编写表格

#!d:/perl/bin/perl
use warnings;
use strict;

use CGI::Pretty qw(:standard);

print header,start_html("Table Demo");

print table(Tr({-align=>'center',-valign=>'middle'},[
td(['Tic','Tac','Toe','Tie']),
td(['Red','Blue','Green','Yellow']),
td({-colspan=>2},['Left','Right']),
]));

print end_html;