JSON и рандомный вывод ключа/значения

[perl6]

Приветствую. Нет ли возможности сделать вывод json-данных по дефолту, т.е., чтобы данные выводились так же, как в хэше, а не рандомно. В самом модуле вот, что говорится об этом:

If $enable is false, then the encode method will output key-value pairs in the order Perl stores them (which will likely change between runs of the same script, and can change even within the same run from 5.18 onwards).

Тут говорится, что можно только отсортировать по алфавиту ключи через параметр canonical, в противном случае, данные выводятся РАНДОМНО.

[RXL]

perldoc JSON::XS

_
    $json = $json->canonical ([$enable])
    $enabled = $json->get_canonical
        If $enable is true (or missing), then the "encode" method will output
        JSON objects by sorting their keys. This is adding a comparatively
        high overhead.

        If $enable is false, then the "encode" method will output key-value
        pairs in the order Perl stores them (which will likely change between
        runs of the same script, and can change even within the same run from
        5.18 onwards).

        This option is useful if you want the same data structure to be
        encoded as the same JSON text (given the same overall settings). If it
        is disabled, the same hash might be encoded differently even if
        contains the same data, as key-value pairs have no inherent ordering
        in Perl.

        This setting has no effect when decoding JSON texts.

        This setting has currently no effect on tied hashes.

Рекомендую использовать для JSON именно этот модуль.

Код: (Perl)

use JSON::XS ();
my $json = JSON::XS->new->canonical;
my $str = $json->encode($hashref);

При вводе выводе обрати внимание на utf8.

[perl6]

Спасибо, это я и сам знаю, ключ canonical сортирует по алфавиту, а мне хотелось бы, чтобы сортировал именно так, как в хэше ключи расположены, т.е. просто тупо преобразовывал  ИСХОДНЫЙ хэш в  ИСХОДНУЮ-json строку.

[RXL]

Т.е. ты хочешь поведение как в PHP. Нет, это невозможно. Если кровь из носа надо, храни порядок ключей и делай генерацию JSON сам. Не знаю, где такое может пригодиться, кроме как при проверке подписи по специально сформированной строке.

И на счет "рандомно". Не рандомно, а согласно порядку ключей в хеше. Т.е. порядок вполне определенный и не рандомный. Начиная с perl 5.18 в хеш-функцию подмешивается дополнительное значение (типа security). Это значение определяется рандомно на момент создания хеша. Соотв., единожды перемешавшись, ключи будут выводиться каждый раз в одном порядке.

[perl6]

Т.е. ты хочешь поведение как в PHP. Нет, это невозможно. Если кровь из носа надо, храни порядок ключей и делай генерацию JSON сам. Не знаю, где такое может пригодиться, кроме как при проверке подписи по специально сформированной строке.

И на счет "рандомно". Не рандомно, а согласно порядку ключей в хеше. Т.е. порядок вполне определенный и не рандомный. Начиная с perl 5.18 в хеш-функцию подмешивается дополнительное значение (типа security). Это значение определяется рандомно на момент создания хеша. Соотв., единожды перемешавшись, ключи будут выводиться каждый раз в одном порядке.

Да, пришлось самому извращаться, куда деваться. Спасибо, что нашли время моей проблемой заняться, спс.