Perl mySql 数据到 JSON 文件

Question

您好，我正在尝试将 mysql 详细信息保存在 json 文件中 如何以json格式保存mysql详细信息？

我的 perl 代码

#!/usr/bin/perl
my $file = $db->SelectRow("SELECT f.*, s.*, u.usr_login as file_usr_login, u.usr_profit_mode
                              FROM (Files f, Servers s)
                              LEFT JOIN Users u ON f.usr_id = u.usr_id
                              WHERE f.file_code=?
                              AND f.srv_id=s.srv_id",$f->{id});

如何在 json 中保存$file 详细信息？

Answer 1

my $file = $db->SelectRow(
    q[SELECT f.*, s.*, u.usr_login as file_usr_login, u.usr_profit_mode
                              FROM (Files f, Servers s)
                              LEFT JOIN Users u ON f.usr_id = u.usr_id
                              WHERE f.file_code=?
                              AND f.srv_id=s.srv_id], $f->{id}
);

use JSON;

my $json = new JSON;

my $file_in_json = $json->encode($file);