chuỗi JSON không đúng định dạng, không phải mảng, đối tượng, số, chuỗi hoặc nguyên tử

Question

Tôi gặp sự cố khi phân tích cú pháp đối tượng json với perl và tôi không biết vấn đề có xuất phát từ json hay tập lệnh của tôi hay không. Đây là json:

test.json

{ 
    "count":3, 
    "entries": 
    [ 
     { 
     "id":85, 
     "application":AuditExampleLogin1, 
     "user":admin, 
     "time":"2011-11-22T10:29:37.422Z", 
     "values": 
null 
     }, 
     { 
     "id":87, 
     "application":AuditExampleLogin1, 
     "user":admin, 
     "time":"2011-11-22T10:30:56.235Z", 
     "values": 
null 
     }, 
     { 
     "id":89, 
     "application":AuditExampleLogin1, 
     "user":admin, 
     "time":"2011-11-22T10:33:15.000Z", 
     "values": 
null 
     } 
    ] 
} 

đây kịch bản:
script.pl

#!/usr/bin/perl -w 
use strict; 
use JSON; 
open FILE, 'test.json' or die "Could not open file inputfile: $!"; 
sysread(FILE, my $result, -s FILE); 
close FILE or die "Could not close file: $!"; 
my @json = @{decode_json($result)}; 

Và cuối cùng là lỗi tôi nhận được:
lỗi

malformed JSON string, neither array, object, number, string or atom, 
at character offset 86 (before "AuditExampleLogin1,\n...") at  
./script.pl line 7. 

Hỏi: Ai đó có thể cho tôi biết sự cố xảy ra từ json hoặc tập lệnh của tôi và điều gì sẽ thay đổi trong cả hai trường hợp?

FYI số json is coming from Alfresco auditing api.

Answer 1

Nó hoạt động nếu Kiểm tra ... và giá trị quản trị được trích dẫn. Dòng

my @json = @{decode_json($result)}; 

cần phải được chỉ

my @json = decode_json($result); 

Answer 2

này:

"application":AuditExampleLogin1, 

... không hợp lệ JSON. AuditExampleLogin1 không phải là mảng, đối tượng, số, chuỗi hoặc nguyên tử. Tôi không biết nó được cho là gì, vì vậy tôi không thể nói cho bạn biết phải thay đổi nó thành cái gì.

Nếu đó là một chuỗi, thì bạn cần phải đính kèm nó trong ".

Xem thêm: JSON Lint.