Function 如何将Java正确地放入Perl中？

Javascript本身就可以很好地处理“True”结果。但是当我试图将它插入到Perl语言中时，它不起作用。可能它没有正确读取正则表达式？我对这两种语言都还不熟悉

#!/usr/bin/perl

print "Content-type: text/html\n\n";

print "<script type='text/javascript'>
    var reZip = /^\d{5}$/

var num = '12345';

    if(reZip.test(num))
    {
    alert('True');
    }
    else
    {
    alert('False');
    }

</script>";

#/usr/bin/perl
打印“内容类型：text/html\n\n”；
“打印”
var reZip=/^\d{5}$/
var num='12345'；
如果（重新压缩测试（数量））
{
警报（“真”）；
}
其他的
{
警报（“假”）；
}
";

$/

是Perl中的记录分隔符变量（

“\n”

默认情况下）。在

“

字符串中，它被替换为

var reZip = /^\d{5}$/

另外，由于这是一个

“

字符串，

\d

被解释为一个未知转义，并被替换为

d

对于多行字符串更好，并且可以使用单引号变体来防止插值

print <<'END';
<script type='text/javascript'>
    var reZip = /^\d{5}$/

var num = '12345';

    if(reZip.test(num))
    {
    alert('True');
    }
    else
    {
    alert('False');
    }

</script>
END

---

打印您想做什么？为什么要在perl中使用java？根据您所拥有的，您只需打印java脚本。如果你想使用CGIThanks，你的回答就满足了我的问题。