Perl-CGIからのJSON形式のデータをAjaxで受信する

Perl Ajax JSON

昨日のHTML
AjaxでJSONを呼ぶ - Throw or Die and ChouChou
の7行目

var url = 'json.txt';

を

var url = '/json.pl';

に、修正し、以下をcgi-bin以下に置く。

#!"C:\perl\bin\perl.exe"

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

print <<END_OF_JSON
{
  name: "Monta",
  address: "Japan"
}
END_OF_JSON

ブラウザによっては、Content-Typeはこれではうまく動かないかも知れない。
EclipseのEPIC-Perlプラグインを使うと、サーバ起動時に自動的にポートが割り当てられるが、
アンチウィルスソフトのファイアウォールが動いているとうまく動かないので、
Javaプログラムについてはブロックしないように設定するとよい。