Perl CGI元标记视口

Ton*_*y92 1 perl cgi

我正在使用Perl CGI,我正在寻找如何在标题中包含viewport元,即以下html行:

<meta name = "viewport"
     content = "width = device-width, initial-scale = 1, user-scalable = yes">
Run Code Online (Sandbox Code Playgroud)

我的脚本标题如下:

use strict;
use warnings;
use utf8;
use DBI;
use CGI qw (-any);
use Switch;
my $ cgi = new CGI;

print $ cgi-> header ("text/html; charset=UTF-8");
print $ cgi-> start_html (
  -title => 'List of new movies',
  -author => 'xxxxx@yahoo.fr',
  -lang => 'en',
  -meta => {copyleft => 'xxxxx@yahoo.fr'},
  -style => {-src => 'https://my-web-server.com/style.css'},

);
Run Code Online (Sandbox Code Playgroud)

Que*_*tin 7

不要将HTTP标头与HTML <head>部分混淆.

如果您打算使用CGI模块的HTML生成方法,那么您将以与copyleftmeta元素相同的方式执行此操作.

-meta => {
    copyleft => 'xxxxx@yahoo.fr', 
    viewport => 'width=device-width,initial-scale=1,user-scalable=yes'
},
Run Code Online (Sandbox Code Playgroud)

但是,不应再使用HTML生成函数(根据CGI.pm文档).

您可以使用模板系统替换此代码.

就此而言,您应该完全避免使用CGI并使用PSGI替代方案.