私がよくやるのですが、意外と知らない方が多いかもしれないので、解説してみます。PerlをJavascript外部ファイルとして認識させ出力する小技です。これにより、柔軟に変化するJavascript外部ファイルになるのですよPerlが。ホント最強ですこれ。
方法は簡単。
最終的にprintする時に
print "Pragma: no-cache\n";
print "Cache-Control: no-cache\n";
print "Content-type: text/plain\n\n";
print "<!--\n";
print "ここにJavascriptの書式で記述";
print "//-->\n";
あとは赤字のところにJavascriptの書式で関数なり、変数の定義なりを記述すればOKです。
これはホント便利なので、是非ご活用ください。
ちなみに、呼び出す時は
<script type="text/javascript" src="URL.cgi"></script>
と呼び出せば、普通にJavascript外部ファイルとして呼び出せます。
<script>タグの間に関数の呼び出しを入れる事も当然できます。
いろいろ応用できると思いますのでやってミホ☆
当サイトのBBSなどもすべてJavascript外部ファイルとして読み出してます。
ひまな人は見てみよう。
ソース