mal formé chaîne JSON, ni tableau, un objet, un nombre, une chaîne ou un atome

J'ai de la difficulté de l'analyse d'un objet json avec perl et je ne sais pas si le problème vient du json ou mon script. Voici le 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
      }
   ]
}

Voici le script:

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)};

Et enfin l'erreur que je reçois:

erreur

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

Q: quelqu'un Peut me dire si le problème vient du json ou mon script et ce qui doit changer dans les deux cas?

Pour information, le json est à venir à partir d'Alfresco api d'audit.

  • Autant que je sache, ce n'est pas JSON valide, manque des guillemets autour des valeurs.
  • J'avais exactement le même problème. J'ai une question sur le fil de l'auteur: comment accéder à l' @json variables? Je garde geting que @json est un HACHAGE en mémoire, mais je ne peux pas accéder aux variables ou d'une boucle de síy.
InformationsquelleAutor Max | 2011-11-22
  1. 2

    Il fonctionne si l'Audit... et admin valeurs sont cotées. La ligne

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

    doit être 

    my @json = decode_json($result);
    • en effet, il fonctionne quand application et user valeurs sont cotées. Est-il un moyen de dire perl à être un peu plus lâche sur l'analyse de JSON et accepter non cotées cordes? (qui m'épargne d'avoir à réécrire le json).
    • Pas sûr, le module JSON auteur considère vérification stricte à une fonction de sécurité. Vous pouvez pousser le code JSON::PP est un pur perl version.
    • Vous demandez à un parser JSON pour analyser correctement les données qui n'est pas JSON valide. De cette façon se trouve la folie, sûrement 🙂
    InformationsquelleAutor Bill Ruppert
  2. 10

    Ce:

    "application":AuditExampleLogin1,

    ... est invalid JSON. AuditExampleLogin1 n'est pas un tableau, un objet, un nombre, une chaîne ou un atome. Je ne sais pas ce que c'est censé l'être, donc je ne peux pas vous dire à quoi vous changer.

    Si c'est une chaîne de caractères, alors vous avez besoin de l'enfermer dans ".

    Voir aussi: JSON Peluches.

    • très pratique que json validtor. merci
    InformationsquelleAutor Quentin