JSON z Perlem

W tym rozdziale omówiono kodowanie i dekodowanie obiektów JSON przy użyciu języka programowania Perl. Zacznijmy od przygotowania środowiska do programowania w Perlu dla JSON.

Środowisko

Zanim zaczniesz kodować i dekodować JSON za pomocą Perla, musisz zainstalować moduł JSON, który można pobrać z CPAN. Po pobraniu JSON-2.53.tar.gz lub dowolnej innej najnowszej wersji wykonaj czynności wymienione poniżej -

$tar xvfz JSON-2.53.tar.gz
$cd JSON-2.53
$perl Makefile.PL
$make
$make install

Funkcje JSON

Funkcjonować	Biblioteki
encode_json	Konwertuje daną strukturę danych Perl na ciąg binarny zakodowany w formacie UTF-8.
decode_json	Dekoduje ciąg JSON.
to_json	Konwertuje daną strukturę danych Perl na ciąg json.
from_json	Oczekuje ciągu JSON i próbuje go przeanalizować, zwracając wynikowe odwołanie.
convert_blessed	Użyj tej funkcji z wartością true, aby Perl mógł użyć metody TO_JSON na klasie obiektu, aby przekonwertować obiekt na JSON.

Kodowanie JSON w Perlu (encode_json)

Funkcja Perl encode_json () konwertuje daną strukturę danych Perla na ciąg binarny zakodowany w UTF-8.

Składnia

$json_text = encode_json ($perl_scalar );
or
$json_text = JSON->new->utf8->encode($perl_scalar);

Przykład

Poniższy przykład pokazuje tablice w formacie JSON z Perl -

#!/usr/bin/perl
use JSON;

my %rec_hash = ('a' => 1, 'b' => 2, 'c' => 3, 'd' => 4, 'e' => 5);
my $json = encode_json \%rec_hash;
print "$json\n";

Podczas wykonywania da to następujący wynik -

{"e":5,"c":3,"a":1,"b":2,"d":4}

Poniższy przykład pokazuje, jak obiekty Perla można konwertować na JSON -

#!/usr/bin/perl

package Emp;
sub new {
   my $class = shift;
	
   my $self = {
      name => shift,
      hobbies  => shift,
      birthdate  => shift,
   };
	
   bless $self, $class;
   return $self;
}

sub TO_JSON { return { %{ shift() } }; }

package main;
use JSON;

my $JSON = JSON->new->utf8;
$JSON->convert_blessed(1);

$e = new Emp( "sachin", "sports", "8/5/1974 12:20:03 pm");
$json = $JSON->encode($e);
print "$json\n";

Podczas wykonywania da następujący wynik -

{"birthdate":"8/5/1974 12:20:03 pm","name":"sachin","hobbies":"sports"}

Dekodowanie JSON w Perlu (decode_json)

Funkcja Perl decode_json () służy do dekodowania JSON w Perlu. Ta funkcja zwraca wartość zdekodowaną z json do odpowiedniego typu Perla.

Składnia

$perl_scalar = decode_json $json_text
or
$perl_scalar = JSON->new->utf8->decode($json_text)

Przykład

Poniższy przykład pokazuje, jak można użyć Perla do dekodowania obiektów JSON. Tutaj będziesz musiał zainstalować moduł Data :: Dumper, jeśli nie masz go jeszcze na swoim komputerze.

#!/usr/bin/perl
use JSON;
use Data::Dumper;

$json = '{"a":1,"b":2,"c":3,"d":4,"e":5}';

$text = decode_json($json);
print  Dumper($text);

Podczas wykonywania da następujący wynik -

$VAR1 = {
   'e' => 5,
   'c' => 3,
   'a' => 1,
   'b' => 2,
   'd' => 4
};