Изменение параметров в Data :: Printer в Perl6 - PullRequest
Новая
       16

Изменение параметров в Data :: Printer в Perl6

6 голосов
/ 22 апреля 2019

Я печатаю данные в Perl6 с Data::Printer, что является впечатляющим пакетом, но я пытаюсь изменить параметры и не могу.

Например, я хочу: 

HG00112 {
    gained_site                    {
        9:10162   0,
        9:10272   var{HG00112}{gained_site}{9:10162},
        9:10326   var{HG00112}{gained_site}{9:10162},
        ...
}(tied to Perl6::Hash)

чтобы выглядеть как 

HG00112 {
    gained_site                    {
        9:10162   0,
        9:10272   0,
        9:10326   0,
        ...
}(tied to Perl6::Hash)

для удобства чтения (меня не волнует tied to Perl6::Hash, в частности)

этот хеш-элемент можно увидеть с помощью JSON: 

"HG00112": {
    "discordant_multiallelic_loss": 0,
    "concordant_hom_alt": 4,
    "discordant_het_to_alt": 0,
    "discordant_hom_alt_to_ref": 0,
    "discordant_hom_ref_to_alt": 0,
    "lost_site": 0,
    "concordant_het": 3,
    "discordant_multiallelic_gain": 0,
    "discordant_hom_alt_to_het": 0,
    "discordant_call_to_no_call": 0,
    "discordant_het_to_ref": 0,
    "concordant_hom_ref": 5,
    "concordant_site": 18,
    "discordant_no_call_to_call": 0,
    "concordant_no_call": 6,
    "concordant_multiallelic": 0,
    "gained_site": 0,
    "discordant_hom_ref_to_het": 0
}

Обычно я загружаю пакет, используя use Data::Printer:from<Perl5> и используя предложения от

Терминальные цвета ANSI не работают с Inline :: Perl5 (Data :: Printer)

Я пытался использовать это с советом от https://metacpan.org/pod/Data::Printer, а именно

use Data::Printer:from<Perl5> {show_tied => 0}

& use Data::Printer:from<Perl5> show_tied => 0

но оба показывают ошибку

Ошибка при импорте из 'Data::Printer': такого тега нет 'show_tied'

Как я могу получить вывод из Data::Printer, чтобы он выглядел как второй выбор кода, без уродливого var{...?

...