我无法让这个 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}