在 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。

如果要输出构建 HTML 的 JavaScript，则应该使用 jQuery 或 分机。但无论哪种方式，你都将处于多层的逃离地狱之中。 JSON::XS 可能会让你的生活不再那么痛苦。另请了解此处文档：

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>);

上述内容的棘手之处在于 $href 是 JavaScript 变量，而不是 Perl 变量。 （是的，JS 标识符可能包括 $。）

Answer 2

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

它提供了嵌入jsp函数的方法进入 form-onsubmit 如下：

打印$q->start_form(
-名称=> '主窗体',
-方法=> '得到'，
-enctype=> &CGI::URL_ENCODED，

 -onsubmit =>; '返回 javascript:validation_function()',
  -动作=> '/where/your/form/gets/sent', );

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

问候

Answer 3

好吧，这取决于您对整个事物的引用结构。如果您在未插值的 heredoc 中打印此内容，则 \" 只会产生更大的问题。

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

或 aq 表达式：

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

因此您必须显示更多上下文。但让我向你保证：当我以正确的方式写出标签时，我的 JavaScript 文件就会被获取到页面中，正如我所期望的那样。