添加鏈接到perl CGI的頭

Question

我是新來的Perl，我試圖包括一個CSS文件在perl生成的HTML頁面， 我怎麼能用cgi來做到這一點？ 它應該是類似於 print $ 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(); 

感謝

Answer 1

你可以這樣寫：

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'}), 
    ] 
);