perl - CGI 脚本生成的内联 css 中的元素顺序与它们在创建的 HTML 文件中的顺序不同

Question

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

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>

Answer 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>