0

我无法让这个 Perl 代码为表中的整数返回真正的整数值。MySQL 表列被正确指定为整数,但此处的 JSON 输出将所有查询值包含在引号中。如何正确保留指定的数据类型(尤其是整数和布尔值)?

use strict;
use warnings;
use DBI;
use JSON;

my $sth = "SELECT id, name, age FROM table";

my $data = $dbh->selectall_arrayref($sth, {Slice => {}});

my $response = encode_json($data);
print $response;

## outputs: {"id":"1","name":"Joe Blodge","age":"42"}

我在这里做错了什么?我怎样才能让它输出格式正确的 JSON:

{"id":1,"name":"Joe Blodge","age":42}
4

1 回答 1

3

DBD::mysql 以字符串形式返回所有结果(参见https://github.com/perl5-dbi/DBD-mysql/issues/253)。通常 Perl 并不关心,对 JSON 的编码是少数几个重要的时候之一。您可以使用Cpanel::JSON::XS::Type为您的 JSON 结构提供类型声明:

use Cpanel::JSON::XS;
use Cpanel::JSON::XS::Type;

my $response = encode_json($data, {id => JSON_TYPE_INT, name => JSON_TYPE_STRING, age => JSON_TYPE_INT});

或者您可以在 JSON 编码之前检查并计算适当的元素。

$data->{$_} += 0 for qw(id age);

可以检查每个返回列的类型(如 MySQL 所示),如果您使用语句句柄构造和执行查询,则该类型将作为数组 in 可用$sth->{TYPE},但这非常复杂并且可能不可靠.

于 2018-10-27T20:42:02.883 回答