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

Ajax JSON Perl

なんとなく気になったので、
Perl-CGIからのJSON形式のデータをAjaxで受信する - Throw or Die and ChouChou

  • html(19行目)
    eval("var data = " + req.responseText);

を

    var data = eval(req.responseText);

に修正。

  • json.plを以下のように修正。
#!"C:\perl\bin\perl.exe"

use strict;
use CGI;

my $cgi = CGI->new();

my $json_txt = << "__EOL__";
(
  {
    "name": "Monta",
    "address": "Tokyo"
  }
)
__EOL__

print $cgi->header(-content_type => "text/javascript",
			       -charset => "utf-8");
print $json_txt;

一応、ライブラリもちゃんと使おうということで。
↓ここを参考にさせていただきました。
prototype.jsクックブック０３ Hello Json!! - Yet Another ....
次は、POST、PUT、DELETEとか、いわゆるRESTをひととおりやってみるか。