parser un fichier contenant des données au format JSON

Version imprimable

07/09/2017, 11h41
Jasmine80

parser un fichier contenant des données au format JSON

Bonjour à tous,

J'utilise le module JSON::Parse qui fait ce que je veux avec sa fonction json_file_to_perl, le problème étant que je récupéré mes données sous forme d'un objet complexe qui inclus un hash ce qui me fait perdre l'ordre des données dont j'ai besoin.

Je viens voir si quelqu'un en connaitrait un autre qui me permettrait de garder l'ordre de mes éléments en ne récupérant que des arrays, ou en incluant une qui garderait l'ordre de mes clés de hash. Sinon, je vais devoir parser le fichier sans utiliser de module mais ce n'est probablement pas la meilleure solution !

D'avance merci,
08/09/2017, 10h40
Jasmine80

Bonjour,

Je pense que je vais utiliser le module HTTP::Request::Common et directement interroger la base de données, sans passer par un fichier mais le problème reste exactement le même. Personne n'a d'autres modules à me conseiller ?

Merci et bonne journée,

Bonsoir,

Tu ne nous donnes pas beaucoup d'élément, mais peut-être que tu devrais regarder du coté du module Tie::IxHash:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
NAME
    Tie::IxHash - ordered associative arrays for Perl

SYNOPSIS
        # simple usage
        use Tie::IxHash;
        tie HASHVARIABLE, 'Tie::IxHash' [, LIST];

        # OO interface with more powerful features
        use Tie::IxHash;
        TIEOBJECT = Tie::IxHash->new( [LIST] );
        TIEOBJECT->Splice( OFFSET [, LENGTH [, LIST]] );
        TIEOBJECT->Push( LIST );
        TIEOBJECT->Pop;
        TIEOBJECT->Shift;
        TIEOBJECT->Unshift( LIST );
        TIEOBJECT->Keys( [LIST] );
        TIEOBJECT->Values( [LIST] );
        TIEOBJECT->Indices( LIST );
        TIEOBJECT->Delete( [LIST] );
        TIEOBJECT->Replace( OFFSET, VALUE, [KEY] );
        TIEOBJECT->Reorder( LIST );
        TIEOBJECT->SortByKey;
        TIEOBJECT->SortByValue;
        TIEOBJECT->Length;

DESCRIPTION
    This Perl module implements Perl hashes that preserve the order in which
    the hash elements were added. The order is not affected when values
    corresponding to existing keys in the IxHash are changed. The elements can
    also be set to any arbitrary supplied order. The familiar perl array
    operations can also be performed on the IxHash.