代码之家 › 专栏 › 技术社区 › knb

Perl:如何在“根”键属性之外的其他属性上对JSON结构进行排序

sorting json perl

knb · 技术社区 · 15 年前

Perl: 如何使用json::pp对复杂结构进行排序?

从JSON文档中:

当排序程序在 json::pp scope,给定的子例程名称和特殊变量$A$B 将开始“json::pp::”。

这是我的尝试,似乎不起作用

open my $fh, ">", $file or warn " exportAsJSON: can't open file: '$file': $!";
print $fh  $coder->sort_by(sub {$_->{column_def}->{$JSON::PP::a} cmp $_->{column_def}->{$JSON::PP::b}  } )->encode(\%json);
close $fh;

我想按键排序,然后在“column_def”下面的attribute键上的column_def属性,即密度,深度,单位:m,mag-sus :

{
    "column_def":
        {
            "depth_in_m":
                {
                    "names":"depth_in_m",
                    "pos":"0"
                },
            "mag_sus":
                {
                    "names":
                        {
                            "A_ALIAS":"Mag-Sus.",
                            "A_DESC":"magnetic susceptibility in SI",
                            "ATTRIBUTE":"MAG_SUS"
                        },
                    "pos":"2"
                },
            "density":
                {
                    "names":
                        {
                            "A_ALIAS":"Density",
                            "A_DESC":"density in gm\/cc",
                            "ATTRIBUTE":"DENSITY"
                        },
                    "pos":"1"
                }
        },
    "data":
        {
            "depth_in_m":"14.635",
            "mag_sus":"n.a.",
            "density":"n.a."
        }
}

1 回复 | 直到 15 年前

FMc TLP 15 年前

我不确定我是否理解您希望如何对JSON输出进行排序——除了按哈希键排序之外。如果这就是你想要的,就通过 canonical 方法为真参数。

use strict;
use warnings;

use JSON::PP;

# A simple hash-of-hashes for exploration.
my $h = {
    Z => { c => 1, d => 2 },
    A => { a => 3, r => 4 },
    B => { c => 5, x => 6 },
    S => { q => 7, d => 8 },
};

my $js = JSON::PP->new;
$js->canonical(1);

my $output = $js->encode($h);
print $output;

如果你使用 sort_by 方法,使用它没有意义 $_ 内 sort 布洛克:它代表什么?文档中不清楚 索尔特比 将接收代码。使用 Data::Dumper 这样地:

use Data::Dumper qw(Dumper);

my $sorter = sub {
    # See what's going on.
    print "$JSON::PP::a cmp $JSON::PP::b\n";
    print Dumper(\@_, $_);
    <STDIN>;

    # Sort hash keys alphabetically.
    $JSON::PP::a cmp $JSON::PP::b;
};

my $output = $js->sort_by($sorter)->encode($h);

你可以推断出 索尔特比 工作原理如下:(1)它接收两个参数,即 JSON::PP 对象和当前正在使用的哈希引用;(2) $JSON::PP::a 和 $JSON::PP::b 变量保存要比较的哈希键。 但注意 散列引用了JSON输出,因为它是从叶节点向上构建的。它不引用您的原始数据结构。这似乎使得编写比较器的任务变得更加棘手。祝你好运。

my $sorter = sub {
    my ($json_pp_object, $hash_ref) = @_;

    # Write your own comparator here.
};

my $output = $js->sort_by($sorter)->encode($h);