Comment puis-je encoder un simple tableau en JSON en Perl?

Tous les exemples que j'ai vu de codage des objets JSON chaînes de caractères en Perl ont impliqué les tables de hachage. Comment puis-je encoder un simple tableau à une chaîne JSON?

use strict;
use warnings;
use JSON;
my @arr = ("this", "is", "my", "array");
my $json_str = encode_json(@arr);  # This doesn't work, produced "arrayref expected"

# $json_str should be ["this", "is", "my", "array"]
"Cela ne fonctionne pas" n'est pas une description de votre problème. Veuillez expliquer attentivement ce qui se passe, et comment elle diffère de ce que vous avez besoin.

OriginalL'auteur Vijay Boyapati | 2014-03-20

  1. 22

    Si vous exécutez ce code, vous devriez obtenir le message d'erreur suivant:

    hash- or arrayref expected (not a simple scalar, use allow_nonref to allow this)

    Vous avez simplement besoin de passer une référence à votre \@arr

    use strict;
use warnings;

use JSON;

my @arr = ("this", "is", "my", "array");
my $json_str = encode_json(\@arr);  # This will work now

print "$json_str";

    Sorties

    ["this","is","my","array"]

    OriginalL'auteur Miller