如何从serialize()解析错误和状态消息?

时间:2011-05-09 14:51:36

标签: jquery ajax perl json

我有这段代码

$(document).ready(function(){

    //  ...

    $('form').submit(function() {

    // ...

    $.ajax({
        type: "GET",
        url: "/cgi-bin/ajax.pl",
        contentType: "application/json; charset=utf-8",
        dataType: "json",

        data: $(this).serialize(),

        error: function(XMLHttpRequest, textStatus, errorThrown) { 
        $('div#create_result').text(
            "responseText: " + XMLHttpRequest.responseText +
            ", textStatus: " + textStatus +
            ", errorThrown: " + errorThrown);


        $('div#create_result').addClass("error");
        }, // error 

        success: function(result){
        if (result.error) { // script returned error
            $('div#create_result').text("result.error: " + result.error);
            $('div#create_result').addClass("error");
        } // if
        else { // perl script says everything is okay
            $('div#create_result').text(
            "result.success: " + result.success +
            ", result.userid: " + result.userid);
            $('div#create_result').addClass("success");
        } //else
        } // success
    }); // ajax

    $('div#create_result').fadeIn();
    return false;

    });
});

如果成功,它总是会给出错误消息。

示例:

responseText: Content-Type: application/json; charset=utf-8 {"success" : "Activity created", "Activity number" : "38"}, textStatus: parsererror, errorThrown: SyntaxError: JSON.parse

任何想法有什么不对?

更新

以下是我在服务器端Perl脚本中创建JSON字符串的方法。

...
$json = qq{{"error" : "Owner $owner doesn't exist"}};

...
$json = qq{{"success" : "Activity created", "Activity number" : "$id"}};
...

print $cgi->header(-type => "application/json", -charset => "utf-8");
print $json;

2 个答案:

答案 0 :(得分:3)

此:

parseError,
SyntaxError: JSON.parse

您的响应JSON不被解析器接受,可能会格式错误。您发布的responseText标题中包含标题,但不应出现。

Content-Type: application/json; charset=utf-8 {"success" : "Activity created", "Activity number" : "38"}

答案 1 :(得分:3)

考虑使用Perl's JSON module,它为您处理序列化和解析。有一个XS后端(速度),以及PP(Pure Perl)后端。