Html 使用Perl CGI显示表
我必须以HTML表格格式显示文件 我尝试了这个，但是我没有得到任何输出Html 使用Perl CGI显示表,html,perl,Html,Perl,我必须以HTML表格格式显示文件 我尝试了这个，但是我没有得到任何输出 use CGI qw(:standard); my $line; print '<HTML>'; print "<head>"; print "</head>"; print "<body>"; print "<p>hello perl am html</p>"; print "</body>"; print "</html>
use CGI qw(:standard);
my $line;
print '<HTML>';
print "<head>";
print "</head>";
print "<body>";
print "<p>hello perl am html</p>";
print "</body>";
print "</html>";
使用CGI qw（：标准）；
我的美元线；
打印“”；
打印“”；
打印“”；
打印“”；
打印“hello perl am html”；
打印“”；
打印“”；
（您还应该编写有效的HTML，以便包含Doctype和
）。CGI程序必须在输出任何内容之前输出HTTP头。至少，它必须提供HTTP内容类型头
加：
…然后再输出任何HTML
（您还应编写有效的HTML，以便包含Doctype和
）。加载模块后，应使用该模块。它使遵循HTTP页面的正确规则变得更简单
正如所观察到的，您需要在HTML正文之前打印HTTP头，您可以使用print$cgi->header
来完成这一操作，默认情况下，它指定的内容类型为text/HTML
，字符集为ISO-8859-1
，这对于许多简单的HTML页面来说是足够的。它还在HTML中生成一个包含相同信息的
元素
这个简短的节目展示了这个想法。我添加了一个简单的表，显示了如何在页面中包含这些内容。如您所见，CGI
代码比相应的HTML要简单得多
use strict;
use warnings;
use CGI qw/ :standard /;
print header;
print
start_html('My Title'),
p('Hello Perl am HTML'),
table(
Tr([
td([1, 2, 3]),
td([4, 5, 6]),
])
),
end_html
;
输出
Content-Type: text/html; charset=ISO-8859-1
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
<head>
<title>My Title</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body>
<p>Hello Perl am HTML</p><table><tr><td>1</td> <td>2</td> <td>3</td></tr> <tr><td>4</td> <td>5</td> <td>6</td></tr></table>
</body>
</html>
内容类型：text/html；字符集=ISO-8859-1
我的头衔
您好Perl am HTML1 2 3 4 5 6
加载模块后，应立即使用该模块。它使遵循HTTP页面的正确规则变得更简单
正如所观察到的，您需要在HTML正文之前打印HTTP头，您可以使用print$cgi->header
来完成这一操作，默认情况下，它指定的内容类型为text/HTML
，字符集为ISO-8859-1
，这对于许多简单的HTML页面来说是足够的。它还在HTML中生成一个包含相同信息的
元素
这个简短的节目展示了这个想法。我添加了一个简单的表，显示了如何在页面中包含这些内容。如您所见，CGI
代码比相应的HTML要简单得多
use strict;
use warnings;
use CGI qw/ :standard /;
print header;
print
start_html('My Title'),
p('Hello Perl am HTML'),
table(
Tr([
td([1, 2, 3]),
td([4, 5, 6]),
])
),
end_html
;
输出
Content-Type: text/html; charset=ISO-8859-1
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
<head>
<title>My Title</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body>
<p>Hello Perl am HTML</p><table><tr><td>1</td> <td>2</td> <td>3</td></tr> <tr><td>4</td> <td>5</td> <td>6</td></tr></table>
</body>
</html>
内容类型：text/html；字符集=ISO-8859-1
我的头衔
您好Perl am HTML1 2 3 4 5 6
这个怎么样：
use CGI;
use strict;
my $q = CGI->new;
print $q->header.$q->start_html(-title=>'MyTitle');
my $tableSettings = {-border=>1, -cellpadding=>0, -cellspacing=>0};
print $q->table($tableSettings, $q->Tr($q->td(['column1', 'column2', 'column3'])));
print $q->end_html;
输出：
Content-Type: text/html; charset=ISO-8859-1
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
<head>
<title>MyTitle</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body>
<table border="1" cellspacing="0" cellpadding="0"><tr><td>column1</td> <td>column2</td> <td>column3</td></tr></table>
</body>
</html>
内容类型：text/html；字符集=ISO-8859-1
我的头衔
第1栏第2栏第3栏
这个怎么样：
use CGI;
use strict;
my $q = CGI->new;
print $q->header.$q->start_html(-title=>'MyTitle');
my $tableSettings = {-border=>1, -cellpadding=>0, -cellspacing=>0};
print $q->table($tableSettings, $q->Tr($q->td(['column1', 'column2', 'column3'])));
print $q->end_html;
输出：
Content-Type: text/html; charset=ISO-8859-1
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
<head>
<title>MyTitle</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body>
<table border="1" cellspacing="0" cellpadding="0"><tr><td>column1</td> <td>column2</td> <td>column3</td></tr></table>
</body>
</html>
内容类型：text/html；字符集=ISO-8859-1
我的头衔
第1栏第2栏第3栏