JavaをPerlの中に正しく入れるには？

Question

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

Answer 1

$/パール（デフォルトで"\n"）のレコードセパレータ変数です。これは\dが不明なエスケープとして解釈し、ちょうどdでsubtitutedされている""文字列であるため""文字列内では、それは、

また

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

に置換されています。

Heredocsは、複数行の文字列の方が適しており、一重引用符形式を使用して補間を防ぐことができます。

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

var num = '12345'; 

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

</script> 
END