1

当尝试通过cmd提示运行我的 perl 脚本时，我的json字符串正在返回[] ，我已经阅读了其他帖子，并将我的数据库修复为utf8，并且错误仍然存​​在。我尝试了两种不同的方式来编码我的 perl 字符串，第一种是$json = encode_json @temp_array返回这个错误hash- or arrayref expected (not a simple scalar, use allow_nonref to allow this 但是，当我使用这条线时，$json_text = $json->encode(@temp_array)我得到了[]

这是我的perl：

my $json_text;
my $json = JSON->new->utf8;
my @temp_array =[];
my $temp_array;
while (@data = $query_handle->fetchrow_array()) 
    {
    my %json_hash = ();
    my $hash_ref;
    %json_hash = (
                "User ID" => $data[0],
                "Status" => $data[1],
                "Last Password Reset" => $data[2],
                "Reset Needed" => $data[3]
                );
    $hash_ref = \%json_hash;
    push (@temp_array, $hash_ref);
    }   

print $json = encode_json @temp_array . "\n";   #encode with error
print $json_text = $json->encode(@temp_array) . "\n"; #encode with []
print $cgi->header(-type => "application/json", -charset => "utf-8");
print $json_text; #Prints []

所以在我自己的测试中，通过cmd prompt我知道 while 正在正确地从我的数据库中检索数据并正在构建一个哈希，我假设这是正确的。

这是我将哈希引用推送到数组而不是哈希本身的事实吗？一旦我正确构建了这个字符串，我将通过jquery

谢谢你。

4

1 回答 1

6

JSON 需要参考：

print $json = encode_json(\@temp_array) . "\n";   
print $json_text = $json->encode(\@temp_array) . "\n";

编辑：除非您启用allow_nonref。

另一个编辑：这条线是错误的——

my @temp_array =[]; ## should be my @temp_array = ();

并且这一行覆盖了 $json 变量：

print $json = encode_json @temp_array . "\n"; ## the next line in your script shouldn't work

上次编辑 - 未经测试：

my $json = JSON->new->utf8;
my @temp_array;
while (my @data = $query_handle->fetchrow_array()) {
    my %json_hash = (
            "User ID" => $data[0],
            "Status" => $data[1],
            "Last Password Reset" => $data[2],
            "Reset Needed" => $data[3]
    );
    push (@temp_array, \%json_hash);
}   

print $json->encode(\@temp_array) . "\n";
于 2012-04-24T17:19:31.490 回答