如何在 Perl 中迭代多维 json_decoded 对象以创建新的 json 对象？

Question

我正在尝试在 Perl 中重新创建一个 php 进程，但运气不佳（我不太了解 Perl）。

这是我的 php 代码：

$json = '{"0":{"name":"action","value":"none"},"1":{"name":"additionalTraining","value":"modulesRevisited"},"2":{"name":"additionalTrainingComments","value":""},"3":{"name":"additionalTraining","value":"moduleReporting"},"4":{"name":"additionalTrainingComments","value":""},"5":{"name":"additionalTrainingComments","value":""},"6":{"name":"anotherValue","value":""},"7":{"name":"1359436206","value":""},"8":{"name":"1359436207","value":""},"48":{"name":"actionId","value":""},"49":{"name":"multiSelect","value":"second"},"50":{"name":"multiSelect","value":"third"},"51":{"name":"radio","value":"1"},"52":{"name":"svgs","value":{"0":{"id":"drawing"},"1":{"id":"drawing"}}}}';
$decoded = json_decode($json,true);
$clean = array();
foreach($decoded as $Obj => $array){
    if(array_key_exists($array['name'], $clean))
    {
        if(!is_array($clean[$array['name']]))
        {
            $value = $clean[$array['name']];
            $clean[$array['name']] = array($value,$array['value']);
        }
        else
        {
            array_push($clean[$array['name']], $array['value']);
        }
    }
    else
    {
        $clean[$array['name']]=$array['value'];
    }
}
 echo json_encode($clean);

更新： 这就是我在 Perl 中尝试过的以及我经常遇到的问题：

use JSON;
use Data::Dumper;
use warnings;
use strict;
my @records = decode_json($json_text); 
foreach my $element (@records)
{
      print "$element\n";
}

我得到一个 hashref。所以我尝试将第一行更改为：

my @records = @{ decode_json($json_text) }; #dereference function as it returns an arrayref, not a list

然后我在尝试循环时收到“Not an ARRAY reference”。

然后我尝试这样的事情并没有得到任何结果或错误：

my $records = decode_json($json_text); 
my $i = 0;
my @records;
foreach my $entry (@{$records[0]}) {
    my %listHash = %{$entry};
    my $key;
    my $value;
    $i++;
    while(($key, $value) = each(%listHash)) {   
        my $key;
        my $value;
        print "${key}_$i, $value\n";
    }
}

然后我尝试将它们中的所有部分组合起来以获得我想要的输出，而我最接近的是：

my %records = %{ decode_json($json_text) }; 
while ( my ($key, $value) = each %records )
{
  my $records;
  #print "key: $key, value: $records{$key}\n";
  while ( my ($key, $value) = each %{$value} )
  {
    print "key: $key, value: $value\n";
  }
}

但这给了我这样的输出：

key: name, value: anotherValue
key: value, value: third
key: name, value: multiSelect
key: value, value: moduleReporting

而我需要像

这样的输出

key: anotherValue, value: third
key: multiSelect, value: moduleReporting

我哪里出错了？

如何在 Perl 中重新创建相同的结果？非常感谢您的帮助。

Answer 1

好吧，你并没有真正出错；它只是尽可能愚蠢的 JSON 格式。 JSON 是键的散列（排序后的数字字符串），映射到另一个散列级别，具有键 name 和 value：

{
  "0": {"name": "someKey",    "value": "someValue"},
  "1": {"name": "anotherKey", "value": "anotherValue"}
}

（此数据可能应该编码为[{"someKey": "someValue"}, {"anotherKey": "anotherValue"}]。）

所以我们要做的是循环遍历外部哈希的数字排序键：

for my $index (sort { $a <=> $b } keys %records) { ... }

在该循环中，我们不循环遍历哈希值的键/值。相反，我们只选择键 name 和 value 的值：

my $record_value = $records{$index};
my ($key, $value) = @$record_value{qw/name value/};   # a "hash slice"

并打印出来：

say "key: $key, value: $value";