在Perl-CGI生成的页面中包含JavaScript

Question

我试图将java脚本添加到一个动态生成的页面中。我试过了，但它似乎不起作用。

<SCRIPT SRC=\"sorttable.js\"></SCRIPT>

我总是需要内联javacode和html才能正常工作。有什么线索吗？

Answer 1

qq()等同于""，但具有匹配的分隔符。如果你输出的是HTML或JavaScript，它将会是你的朋友。

print qq(<script type="text/javascript">alert("The world is my oyster");</script>);

请注意，您不必使用()作为分隔符，请参阅perlop。

如果你正在输出构建超文本标记语言的JavaScript，你应该使用jQuery或Ext。但无论哪种方式，你都将处于多层逃生地狱中。JSON::XS可能会让你的生活不那么痛苦。还可以了解here-documents

my $js = <<'JS';
    alert( 'The world is my oyster' );
    var $href = "example.html";
    document.write( '<a href="' + $href + '">clicky</a>' );
JS
print qq(<script type="text/javascript">$js</script>);

上面的棘手之处在于，Perl是一个JavaScript变量，而不是Perl变量。(可以，JS标识符可以包含$。)

Answer 2

也许这个链接可能会有帮助：http://perlmeme.org/tutorials/cgi_form.html

它提供了将jsp函数嵌入到form-onsubmit中的方法，如下所示：

开始打印$Q->

_form( -name => 'main_form'，-method => 'GET'，-enctype => &CGI::URL_ENCODED，

-onsubmit => 'return javascript:validation_function()'，-action =>‘/where/-action/form/gets/sent’，)；

这里有一个来自Javascript CGI库的链接--对Perl5的支持，它是关于将javascript函数链接到一个事件的。http://cpansearch.perl.org/src/MARKSTOS/CGI.pm-3.60/cgi_docs.html#javascripting

问候

Answer 3

嗯，这取决于你对整个事情的引用结构。如果你在一个未插入的then文档中打印出来，那么\"只会产生一个更大的问题。

   print <<'END_HTML';
   ...
      <SCRIPT SRC=\"sorttable.js\"></SCRIPT>
   ...
   END_HTML

或Q表达式：

  print q~
   ...
      <SCRIPT SRC=\"sorttable.js\"></SCRIPT>
   ...
   ~;

因此，您必须显示更多的上下文信息。但是我可以向您保证:当我以正确的方式写出标记时，我的JavaScript文件就会像我所期望的那样被添加到页面中。