CGI脚本编写的内联css中的元素顺序与创建的HTML文件中的顺序不同

时间:2013-06-21 03:48:36

标签: perl cgi perl-module

我正在使用CGI学校项目编写初学者CGI.pm脚本。 我需要从用户那里获取一些数据并将它们作为内联css实现到HTML

pop是一个弹出菜单,用于确定DIV的宽度单位。

if ( $cgi->param('width') ) {
print
$cgi->div(
{
    -style=>'width:'.$cgi->param('width').$cgi->param('pop').';'.'align:'=>$cgi->param('justification').';',
},
$cgi->p($cgi->param('area')),
);
}

我的HTML源代码很奇怪。为什么他们不在秩序中?

<div right;width:50% style="align:"><p>here is my text</p></div>

1 个答案:

答案 0 :(得分:1)

启用警告会告诉您:

Odd number of elements in anonymous hash

因为那里有... => ... => ...;我怀疑第二个是.

use strict;
use warnings;
use CGI;
my $cgi = CGI->new("width=50;pop=%25;justification=right");
if ( $cgi->param('width') ) {
    print
$cgi->div(
{
    -style=>'width:'.$cgi->param('width').$cgi->param('pop').';'.'align:'.$cgi->param('justification').';',
},
$cgi->p($cgi->param('area')),
);
}

输出:

<div style="width:50%;align:right;"><p /></div>