Работа с форматом JSON на языке PERL

Работа с форматом JSON на языке PERL.

Формат JSON

JSON(JavaScript Object Notation) – текстовый формат данных. Является альтернативой формата XML. На примере рассмотрим отличия форматов JSON и XML. Допустим, разработчику необходимо хранить информацию о студентах в приложении «Journal students». В листинге, представленном ниже, приведена реализация хранения данных с использованием формата XML.

<student>   <name>Алексей</name>   <surname>Алексеев</surname>   <faculty>Экономический</faculty>   <group>Э-51</group>   <adress>     <city>Москва</city>     <street>Береговая</street>     <house>2</house>     <apartment>14</apartment>   </adress> </student>  <student>   <name>Петр</name>   <surname>Петров</surname>   <faculty>Машиностроительный</faculty>   <group>М-72</group>   <adress>     <city>Москва</city>     <street>Речная</street>     <house>12</house>     <apartment>24</apartment>   </adress> </student> 

Подобная структура данных представленная в формате JSON будет выглядеть следующим образом:

[     {         "name": "Петр",         "surname": "Петров",         "faculty": "Машиностроительный",         "group": "М-72",         "adress": {             "city": "Москва",             "street": "Речная",             "house": "12",             "apartment": "24"     }    }, {         "name": "Алексей",         "surname": "Алексеев",         "faculty": "Экономический",         "group": "Э-51",         "adress": {             "city": "Москва",             "street": "Береговая",             "house": "2",             "apartment": "14"         }         } ] 

Постановка задачи

Необходимо написать скрипт на языке Perl, предназначенный для парсинга структуры данных формата JSON. Это необходимо для операций, производимых над данными из структуры формата JSON.

JSON и Perl

Для работы с форматом JSON используется библиотека JSON-2.53:

use JSON; 

Подпрограмма decodeJSON, представленная ниже, предназначена для преобразования структуры данных формата JSON в структуру данных языка Perl (составленную из массивов и хэшей различной степени вложенности).

sub decodeJSON { 	my ($JSONText) = @_;     my $hashRef = decode_json($JSONText);     return @$hashRef; } 

Подпрограмма encodeJSON предназначена для преобразования структуры данных Perl в структуру данных формата JSON.

sub encodeJSON{ 	my($arrayRef) = @_; 	$JSONText= JSON->new->utf8->encode($perl_scalar); 	return $JSONText; } 

Заключение

В результате получена структура данных Perl, для которой в дальнейшем будет написан следующий функционал:
• Добавление элементов;
• Удаление элементов;
• Редактирование данных элемента;
• Поиск необходимого элемента;