Работа с форматом JSON на языке PERL
Работа с форматом JSON на языке PERL.Формат JSON JSON (JavaScript Object Notation) — текстовый формат данных. Является альтернативой формата XML. На примере рассмотрим отличия форматов JSON и XML. Допустим, разработчику необходимо хранить информацию о студентах в приложении «Journal students». В листинге, представленном ниже, приведена реализация хранения данных с использованием формата XML.АлексейАлексеевЭкономическийЭ-51МоскваБереговая214ПетрПетровМашиностроительныйМ-72МоскваРечная1224 Подобная структура данных представленная в формате 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, для которой в дальнейшем будет написан следующий функционал: • Добавление элементов; • Удаление элементов; • Редактирование данных элемента; • Поиск необходимого элемента;
