※ ChatGPTを利用し、要約された質問です（原文：Perlからjavascript構文の出力について）
Perlからjavascript構文の出力について
このQ&Aのポイント
Perlを使ってHTML内にjavascript構文を追記し出力する方法について教えてください。
javascriptを使用して登録完了ポップアップを表示させたいですが、ソースに追記して実行するとInternal Server Errorが発生してしまいます。
どのようにすれば正しくjavascript構文をソースに追記してポップアップを表示させることができるのでしょうか？
Perlからjavascript構文の出力について
はじめまして。
現在javascriptを勉強中の者です。
PerlからHTML構文内にjavascript構文を追記し出力しようとしていますが、追記してPerlを実行させただけでInternal Server Errorとなってしまいます。
過去ログをいくつか見させて頂きましたが、自分のソースのどこが悪いのかさっぱりです；；
やりたいことは、登録完了ポップアップを表示させるだけです。
表示条件等は別として、まずjavascript構文をソースに追記してポップアップを表示させたいです。
どうか良きアドバイスをお願い致します。
#!/usr/bin/perl
require "cgi-lib.pl";
print "Content-type: text/html\n\n";
print qq!
<HTML>
<HEAD>
<META Http-Equiv="Content-Type" Content="text/html;charset=EUC-JP">
<META name="robots" content="noindex,nofollow">
<TITLE>登録画面</TITLE>
</HEAD>
<BODY>
<script type="text/javascript">
<!--
alert("登録完了");
// -->
</script>
<FORM ACTION="test.cgi" METHOD="post">
<FONT SIZE="4"><B>登録画面</B></FONT>
</BODY>
</HTML>
!;
お礼
早速のご回答ありがとうございます。 出来ました！ > 言いたいことは #2 の通りですが, qq!～! が 1つの文字列だ, ってこと この「！」ですね。 つまり、qq!～!；で囲んだ中に、<!--という文字列があるために、囲み位置がずれてしまってるってことですね。 こうなるはずだと高を括ってしまったのが最大のBUGでした＾＾； 助かりました。 本当にありがとうございました。