我正在尝试在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 a 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中重新创建相同的结果?非常感谢您的帮助。
答案 0 :(得分:1)
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";