如何使perl打印HTML不是原始代码

Ila*_*man 1 html perl

我的网站上有一个.pl perl脚本.我希望代码打印出来,好像它是一个html页面而不是perl页面.我的代码是下面的,下面突出显示的是我在访问页面时看到的内容.当我访问该页面时,我想看到的只是"你好".不是所有的标签.(为了上网的目的,我把实际的html代码简单地设为'Hello'而不是我页面上的实际html.虽然它服务器的目的相同......

.pl代码是什么:

#!/usr/bin/perl

use v5.10;
use CGI;

$q = CGI->new;

print $q->header("text/plain");

$html_template = qq{<!DOCTYPE html>
<html>

<head>

  <meta charset="UTF-8">

  <title></title>


</head>
    <body>

  <p>Hello</p>

    </body>
</html>
};

print $q->header;
print $html_template;
Run Code Online (Sandbox Code Playgroud)

我访问该页面时打印的内容:

Content-Type: text/html; charset=ISO-8859-1

<!DOCTYPE html>
<html>

<head>

  <meta charset="UTF-8">

  <title></title>


</head>
    <body>

  <p>Hello</p>

    </body>
</html>
Run Code Online (Sandbox Code Playgroud)

我希望它打印出来:

Hello
Run Code Online (Sandbox Code Playgroud)

SLa*_*aks 7

print $q->header("text/plain");
Run Code Online (Sandbox Code Playgroud)

如果您告诉浏览器您正在发送文本而不是HTML,那么理智的浏览器会相信您并显示纯文本.

  • 除非浏览器是IE 8或更早版本,否则将`text/plain`视为内容类型自动检测的请求. (3认同)