在perl cgi中添加指向头部的链接

我是Perl新手，我试图在Perl生成的html页面中包含CSS文件， 如何使用cgi实现这一点？ 应该是这样的 打印$cgi->start_html（-link=>{-href=>'/styles/main.css'，-rel=>'stylsheet'，-type=>'text/css'}）

这是完整的代码

#!C:\Dwimperl\perl\bin\perl.exe
use CGI;
my $cgi = new CGI;

# ###----- GETTING THE SCRIPTS AND STYLES ------###
my $jquery = "//ajax.googleapis.com/ajax/libs/jquery/1.9.1/jquery.min.js";

# ###----- PRINTING THE PAGE -----###
print   $cgi -> header;
print   $cgi -> start_html(
            -title => "TestTitle",
            -link => { -href => '/styles/main.css', -rel => 'stylsheet', -type => 'text/css'},
            -script=> [{-language => 'javascript',-src => $jquery},{-code => $jscript}],
        );
print   $cgi -> h1({-class=>"title",-align=>"center"},"Zero Testing");
print   $cgi -> start_div({-align=>"center"});
print   $cgi -> start_div({-align=>"center",-style=>"margin-bottom:35px;"});
print   $cgi -> a({-class=>"linkButton",-id=>"btn_Page",-href=>"Test.pl"},"Suites Page");
print   $cgi -> end_div;
print   $cgi -> start_form({-method=>"get",-id=>"dataForm"});
print   $cgi -> end_form;
print   $cgi -> end_div;
print   $cgi -> end_html();

谢谢

您可以这样写：

use CGI qw/:standard/;

# ...     

print $cgi->start_html(
   -title =>"TestTitle",
   -script=> [ {-language => 'javascript',-src => $jquery}, {-code => $jscript} ],
   -head => [
      Link( { -href => '/styles/main.css', -rel => 'stylsheet', -type => 'text/css'}),
    ]
);

---

谢谢你的回答，我按照你刚才提到的那样做了，但是我得到的只是一个白色屏幕，里面没有任何元素。你是否正确初始化了$jscript变量？你真的不想使用CGI.pm生成HTML。将HTML放在模板中是一个更好的主意。