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

我正在使用

CGI.pm

为学校项目编写一个初学者

CGI

脚本。 我需要从用户那里获取一些数据，并将它们作为内联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>

这是我的文字

启用警告会告诉您：

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>