У меня есть несколько структур, называемых узлами, каждая из которых имеет хэш с несколькими важными особенностями узла.У меня есть структура графа, которая содержит кучу узлов.По сути, я хочу перебрать все мои узлы и создать некую структуру, которая может преобразовывать каждый узел в элемент JSON.То есть для каждого узла у меня должен быть элемент в файле JSON со всеми его функциями (его имя, его код, его заполнение ... все его свойства).использовать JSON: XS ...
my $nodeHash = {}; # the hash I plan to pass to the to_json function
my $metros = {}; #each metro is a Node with a bunch of features
my @array= (); # an array that I populate with nodes
#some code to populate the array (these are blessed objects)
$nodeHash->{$metros} = \@array; # metros has a reference to a list of all nodes
my $json = new JSON; # this syntax is yielding an error for some reason
$json = JSON->allow_blessed([$enable]); #im not sure quite how this works from the documentation
my $json_string = $json->encode_json($nodeHash);
open(JSON, ">output.json") or die "cannot open file for reading: $!";
print JSON "$json_string";