PerlからJavaScriptに変数を渡したい！
じみーなサンプルですが、応用は広いと思われるー。
Perlのなかみ（たとえば”test.pl”つう名前にします。）
01: #!/usr/bin/perl
02: print "Content-type: text/javascript", "\n\n";
03: print "data01 = \"Welcome!!\"\n";
以上でございます。
うまくいくと…
ブラウザ上で「data01 = "Welcome!!"」として
認識されるはずでございます。
HTMLのなかみ
01: <html>
02: <head>
03: <title>サンプル</title>
04: <meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
05: <script src="http://www.a-k-s.co.jp/cgi-bin/testcgi/getfile.pl"
type="text/javascript"></script>
06: </head>
07: <body bgcolor="#FFFFFF" text="#000000">
08: <script laugage="JavaScript" >
09: <!--
10: data01 = "aaaa";
11: //-->
12: </script>
13: <script type="text/javascript" src="http://〜CGIのパスですよ。〜/ｔｅｓｔ.pl"></script>
14: <script laugage="JavaScript" >
15: <!--
16: document.write(data01);
17: //-->
18: </script>
19: </body>
20: </html>
以上でございます。
13行目でCGIからの返り値 「data01 = "Welcome!!"」が排出され
JavaScript上では「data01」の値は「"Welcome!!"」になるはず…。
ほんでもって
16行目の「write命令」で画面上には
Welcome!!
と表示される具合です。