perl：如何对“根”键属性以外的东西对JSON结构进行排序

Question

Perl： 如何使用JSON :: PP对一个复杂结构进行排序？

从JSON文件：

正如 JSON :: PP范围排序例程运行，给定的子程序 名和特殊变量$ 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”的属性键COLUMN_DEF属性，即 密度，depth_in_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." 
     } 
} 

Answer 1

我不能肯定我明白你怎么想的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块中使用$_：那会是什么表现？从文档中不清楚sort_by代码将会收到什么样的论据。使用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); 

可以推断sort_by是这样的：（1）它接收两个参数，JSON::PP对象和哈希REF目前正在与合作;和（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);