打印 Perl CSS 和 HTML答案

【问题标题】：Printing Perl CSS and HTML打印 Perl CSS 和 HTML
【发布时间】：2019-07-22 13:05:06
【问题描述】：

我使用了一点 Perl，最后，我打印 HTML 和 CSS 以显示页面上的内容，但只显示 HTML，CSS 样式和 JavaScript 不起作用。

这是我的打印代码：

    print '

<html>
    <head>
        <link href=\"https://fonts.googleapis.com/css?family=Roboto+Condensed\" rel=\"stylesheet\">

        <style>

            body
            {
                margin: 0;
                padding: 0;
            }

             #faqDiv
            {
                height: 450px;
                width:700;
                background-color: white;
                position: relative;
                top: 50;
                margin: auto;
            }

            #faqicon
            {
                float: right;
                width: 90;
                position: relative;
                top: -70;
                right: 20;

            }

        </style>
    </head>

    <body>
            <div id=\"introdiv\">
                <img src=\"registercrosstwo.png\" id=\"frontcross\">
                <h1 id=\"titledespre\">Despre Familia Crestina Ortodoxa</h1>
                <hr>

                        <button class=\"accordion\">Pr. Cleopa</button>
                        <div class=\"panel\">
                          <p>- Acum va intreb pe voi, se mai fac astazi nunti de acestea? </p>
                        </div>
                </div>
            </div>

    <script>

        window.addEventListener(\"scroll\", function () {
                document.body.classList[
                window.scrollY > 20 ? \"add\": \"remove\"
                ](\"scrolled\");
            });

    </script>
    </body>
</html>    
';

我删除了一些代码，因为我只是想展示大图，问题是为什么忽略 CSS 和 JavaScript？我使用“echo”在 PHP 中尝试了这个确切的代码，并且效果很好。

【问题讨论】：

如果您只想打印纯文本，qw() 函数对您来说很方便

标签： html css perl

【解决方案1】：

您正在使用单引号字符串 '，然后尝试引用 " 字符。然后，它们会以\" 的形式传递到网络浏览器。

删除每个" 字符之前的\ 字符

【讨论】：

想补充一点，here-doc 运算符<<EOF 是编写预格式化文本块（如 HTML）的好方法，因此不需要转义引号。有关详细信息，请参阅perlop's Quote-Like Operators（靠近该部分的底部）。
我已经完成了，它给了我一个内部服务器错误。我不确定，但是 Perl 的问题是您必须在引号之前添加 \ 字符才能使其工作。证据是 HTML 即使使用 \ 字符也可以工作，但 CSS 不能。
Perl 的问题是你必须在引号之前添加 \ 字符才能工作 恐怕这听起来你并不真正了解发生了什么在这。在双引号字符串中，您需要转义双引号字符（否则第一个双引号字符会结束字符串）。在单引号字符串中，出于同样的原因，您需要转义单引号字符。您不需要转义双引号字符串中的单引号或单引号字符串中的双引号。