Учебники

JSON с Perl

Июнь 11, 2019

В этой главе рассказывается, как кодировать и декодировать объекты JSON с использованием языка программирования Perl. Давайте начнем с подготовки среды для начала нашего программирования на Perl для JSON.

Среда

Перед тем, как начать кодирование и декодирование JSON с использованием Perl, необходимо установить модуль JSON, который можно получить из CPAN. После того, как вы загрузили JSON-2.53.tar.gz или любую другую последнюю версию, выполните шаги, указанные ниже — 

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

Функции JSON

функция Библиотеки
encode_json Преобразует данную структуру данных Perl в двоичную строку в кодировке UTF-8.
decode_json Декодирует строку JSON.
to_json Преобразует данную структуру данных Perl в строку json.
from_json Ожидает строку json и пытается ее проанализировать, возвращая полученную ссылку.
convert_blessed Используйте эту функцию с истинным значением, чтобы Perl мог использовать метод TO_JSON в классе объекта для преобразования объекта в JSON.

Кодировка JSON в Perl (encode_json)

Функция Perl encode_json () преобразует данную структуру данных Perl в двоичную строку в кодировке UTF-8.

Синтаксис 

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

пример

В следующем примере показаны массивы под JSON с 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";

При выполнении это даст следующий результат — 

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

В следующем примере показано, как объекты Perl могут быть преобразованы в 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";

При выполнении он даст следующий результат — 

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

Декодирование JSON в Perl (decode_json)

Функция Perl decode_json () используется для декодирования JSON в Perl. Эта функция возвращает значение, декодированное из json, в соответствующий тип Perl.

Синтаксис 

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

пример

В следующем примере показано, как Perl можно использовать для декодирования объектов JSON. Здесь вам нужно будет установить модуль Data :: Dumper, если у вас его еще нет на вашем компьютере. 

#!/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);

При выполнении он выдаст следующий результат —

87
Share: