Question

我正在使用Perl CGI，我正在寻找如何在标头中包含视口元，即以下html行：

<meta name = "viewport"
     content = "width = device-width, initial-scale = 1, user-scalable = yes">

我的脚本的标题如下：

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'},

);

Answer 1

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

如果要使用CGI模块的HTML生成方法，则可以使用与copyleft元元素相同的方式来实现。

-meta => {
    copyleft => 'xxxxx@yahoo.fr', 
    viewport => 'width=device-width,initial-scale=1,user-scalable=yes'
},

但是，不再应使用HTML生成功能（根据the CGI.pm documentation）。

您可以将此代码替换为a template system。

为此，您应该avoid CGI entirely并使用alternative之类的PSGI。

Answer 2

您可以执行此操作（并且除了CGI之外，不需要其他模块）

print "Content-type:text/html\n\n";
print qq(
<!DOCTYPE html>
<html>
<head>
<title>Yourwebsite.com</title>
<meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
</head>
<body>
<more html code here .....>
</body>
</html> );

如果您刚开始使用perl /编程，我不会阻止您使用CGI（就像其他人通常那样），但是我会要求您正确了解其限制，并相应地使用/不使用它。

Perl CGI元标记视口

2 个答案: