我遇到了一个问题，我正在寻找有关解决它的最佳方法的想法。

我接手开发了一个网站，该网站的后端是用 Perl 编写的，前端则大量使用 javascript。

客户端定期从后端接收数百个跟踪对象的更新。这些对象通过 javascript 映射到谷歌地图上。对象哈希(由 javascript 解析)包含有关对象的大量信息，例如位置、描述和各种状态变量。
有些数据是字符串形式，有些是数字形式。

问题是，在将数据推送到客户端 javascript 的过程中，所有值都变成了字符串。因此，在 javascript 中，例如，如果我测试一个值是否为正，即使该值为 0，测试也会成功，因为该值实际上是“0”而不是 0。

在服务器端，数据使用JSON::XS编码如下；

sub process_json {
my $self = shift;

return if( $self->{processed} );
$self->{processed} = 1;
if( $self->{requestrec}->status =~ /^3/ )
{
    return $self->{requestrec}->status;
}

$self->{data}->{session} = {
    id   => $self->session->id,
    user => $self->session->{data}->{__user},
};

use utf8;
my $output;
eval { $output = JSON::XS->new->utf8->encode( $self->{data} ); };
if($@)
{
    use Carp;
    confess($@);
}

$self->discard_request_body();
$self->req->content_type('application/json; charset=utf-8');
$self->req->headers_out->set( 'Expires' => 'Thu, 1 Jan 1970 00:00:00 GMT' );

my $out_bytes = encode( 'UTF-8', $output );
$self->req->headers_out->set( 'Content-Length' => length $output );
$self->req->print($output) unless( $self->req->header_only() );

delete $self->{session}->{data}->{errors}
    if( exists $self->{session}->{data}->{errors} );
delete $self->{session}->{data}->{info}
    if( exists $self->{session}->{data}->{info} );
} ## end of: sub process_json

在客户端，数据使用JSON.parse解码如下；

function http_process (req, callback, errorfn) {
if (req.readyState == 4) {
    this.activerequest = null;
    if (req.status != 200 && req.status != 0 && req.status != 304 && req.status != 403) {
        if (errorfn) { return errorfn(req); } else { dialogue("Server error", "Server error " + req.status); }
        if (req.status == 400) { dialogue("ERROR","Session expired"); this.failed = 1;
        } else if (req.status == 404) { dialogue("ERROR", "Server error (404)"); this.failed = 1;
        } else if (req.status == 500) { dialogue("ERROR", "Server error (500)"); this.failed = 1; }
    } else {
        if (callback) {
            if (req.responseText) {
                lstatus("Loaded (" + req.responseText.length + " bytes)");
                warn("Received " + req.responseText.length + " bytes");
                try {
                    var obj = JSON.parse(req.responseText);
                } catch(e) {
                    warn(e);
                    warn(req.responseText);
                }
                callback( obj );
            } else {
                callback({});
            }
        }
    }
}

谁能找到解决这个问题的有用方法？ Perl 不是强类型的，JSON::XS 只是将数字数据解析为字符串而不是数字。我试图向 JSON.parse 添加一个 reviver(请参见下面的代码)- 但是它不起作用(它正确处理了大部分数据，但一直失败并显示各种消息，例如 non_object_property_call 或 undefined_method。

无论如何，如果在服务器端处理解析数据以确保正确类型的工作会更好。任何人都可以看到如何有效地实现这一点吗？

function toNum(key, value) {
/*make sure value contains an integer or a float not a string */
/*TODO: This seems VERY inefficient - is there a better way */
if (value instanceof Object) return;
if (value instanceof Array) return;
var intRE = /^\d+$/;
var floatRE = /^\d*\.\d+$/;
if(value.match(intRE)) {
    value = parseInt(value);
    return value;
}
if(value.match(floatRE)) {
    value = parseFloat(value);
    return value;
}   

最佳答案

Simple Perl scalars (any scalar that is not a reference) are the most difficult objects to encode: JSON::XS and JSON::PP will encode undefined scalars as JSON null values, scalars that have last been used in a string context before encoding as JSON strings, and anything else as number value ...

诀窍是在编码之前将要编码的任何值“数字化”为数字。

$ perl -MJSON -e '$x="5"; print JSON->new->encode( [ $x, "$x", 0+$x ] )'
["5","5",5]

关于javascript - 类型转换 perl、javascript、JSON.parse JSON::XS - 需要想法，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/9252358/