Работа с форматом 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, для которой в дальнейшем будет написан следующий функционал:
• Добавление элементов;
• Удаление элементов;
• Редактирование данных элемента;
• Поиск необходимого элемента;
26 лет назад, в декабре 1987 года, Ларри Уолл выпустил первую версию языка в ничего не подозревавший мир. Ссылка на группу usenet comp.sources.unix , где впервые упоминается perl как замена awk и sed.
Добрый день. В этой статье я опишу написание бота для онлайн mmo strategy игры Grepolis. Учтите, что правилами игры использование подобных програм запрещено, за это банят, и не безпричинно. Просто у меня хобби писать боты для игр. А писать не запрещено. Кому интересны логика и реализация, прошу под кат.
Перевод немного вольный, но смысл не потерян. Я (переводчик) заинтересовался этой карточкой давно и почти сразу заказал её, сегодня забрал с почты и не могу нарадоваться, но хочется больше, чем дает Transcend, а карточка, между прочим, Linux сервер с WiFi! Очень много буковок.
