Question

我不确定这里发生了什么，所以我很难尝试调试这个问题。这是我的perl脚本的一个非常简单的例子，它只是打印一些html：

#!/usr/bin/perl -w
use strict;
use warnings;

use HTML::Template;

my $template_object = qq|<html>
<head>
    <title>Test</title>
    <link href="http://ajax.googleapis.com/ajax/libs/jqueryui/1.8.16/themes/base/jquery-ui.css" rel="stylesheet" type="text/css" />
    <script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.7.1/jquery.min.js"></script>
</head>
<body>
<script type="text/javascript">
    $(function() {  
        alert("here");
    }); 
   </script>
</body>
</html>|;   
my $template = HTML::Template->new(scalarref => \$template_object);

print "Content-type: text/html\n\n";
print $template->output();

问题是当我运行它时，我没有得到JS警报，如果我查看源代码，$（函数有500 500个 - 这就是IE和FF之后的源代码：

<html>
<head>
    <title>Test</title>
    <link href="http://ajax.googleapis.com/ajax/libs/jqueryui/1.8.16/themes/base/jquery-ui.css" rel="stylesheet" type="text/css" />
    <script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.7.1/jquery.min.js"></script>
</head>
<body>
<script type="text/javascript">
    500 500function() { 
        alert("here");
    }); 
   </script>
</body>
</html>

它不是一个HTML :: Template的东西（我试过没有得到相同的结果），任何想法为什么我看到那些500的？

TIA

Answer 1

您需要使用不插入的引用运算符：

my $template_object = q|<html>

500 500来自$(的插值，$GID是你所属的群组列表{{1}}的简称。

jquery函数在perl打印中显示500

1 个答案: