私が得たjson形式の情報を印刷しようとしています.私が持っているものを見せれば、すべてをよりよく説明できると思います.
foreach ...{
printer($versions);
}
sub printer
{
foreach ...{
my $results = id_cards();
my $toJsonResult = JSON::to_json($results);
print $toJsonResult;
}
}
sub id_cards
{
my $returnData = [];
for($x=1;$y < $vehicle->{'ROWS'};$x++ )
{
my $data;
$data->{year} = $vehicle->{$x}->{'YEAR'}; #there is more $data->repetativeness but not important to get the point
push(@$returnData,$data);
$y++
}
return $returnData;
}
印刷されるjson:
[{"year":"2004"},{"year":"2004"}][{"year":"2002"},{"year":"2000"},{"year":"1994"}][{"year":"2004"},{"year":"1955"}][{"year":"2004"},{"year":"1955"}]
これは私が望むものに非常に近いですが、json「オブジェクト」の分離はありませんか? (用語が何であるかはわかりません)が、有効なjsonではなくなります。それに応じてグループ化された年を有効なjsonに入れるにはどうすればよいですか。