Где найти модуль Perl для преобразования структуры данных Perl в структуру JavaScript?

Question

Где найти модуль Perl для преобразования структуры данных Perl в структуру JavaScript?

например. это мой код (Мейсон):

% # convert our @cti data structure into a javascript one
  var cti = [
% foreach my $cti_category (@cti) {
             {
                 label: "<% $cti_category->{'label'} %>",
                 value: "<% $cti_category->{'value'} %>",
                 children: [
%     foreach my $cti_type (@{$cti_category->{'children'}}) {
                            {
                              label: "<% $cti_type->{'label'} %>",
                              value: "<% $cti_type->{'value'} %>",
                            },
%     }
                           ]
             },
% }
            ];

есть ли модуль для этого?

Answer 1

JSON означает JavaScript Object Notation, который является форматом, который вы ищете.

К сожалению, ни один из модулей, которые вы ищете, не находится в ядре Perl, но они доступны в CPAN, как показывает быстрый поиск .

Я бы действительно рекомендовал установить JSON :: Any в качестве оболочки, а также JSON :: XS (если у вас есть компилятор C) или один из JSON и JSON :: Syck , если вы этого не сделаете. JSON :: Any предоставляет интерфейсный класс поверх нескольких других модулей JSON (вы можете выбрать или позволить ему выбирать из того, что установлено), независимо от того, какой модуль вы используете. Таким образом, если ваш код должен быть перенесен в другое место, и (скажем) целевая машина может установить JSON :: XS, когда вы не можете, вы получите повышение производительности без дополнительного кода.

use JSON::Any;

my $j = JSON::Any->new;

$json = $j->objToJson($perl_data);

Вот так.

Answer 2

Выезд JSON или JSON :: XS .

Для более подробной информации, JSON - это "JavaScript Object Notation", и два вышеупомянутых модуля преобразуют структуры данных perl в этот формат.

Answer 3

Модуль JSON преобразует структуры данных - это в основном сериализатор JSON.

Answer 4

JSON !

Этот модуль преобразует структуры данных Perl в JSON и наоборот, используя JSON :: XS или JSON :: PP.