Как JSON кодировать хэш?

Я хотел бы перебрать хэш на стороне сервера и отправить его клиенту в отсортированном порядке с использованием JSON.

Мой вопрос:

Когда я нахожусь в моем foreach -цикле и имею ключ и сложное значение (посмотрите, как мой хеш выглядит внизу), как мне вставить в строку JSON?

Вот как я делаю, чтобы

use JSON;
my $json = JSON->new;
$json = $json->utf8;

...

# use numeric sort
foreach my $key (sort {$a <=> $b} (keys %act)) {

  # somehow insert $key and contents of $act{$key} into JSON here

}

# my $json_string;
# my $data = $json->encode(%h);
# $json_string = to_json($data);

# # return JSON string
# print $cgi->header(-type => "application/json", -charset => "utf-8");
# print $json_string;

print Dumper \% act выглядел так

$VAR1 = {
          '127' => {
                     'owners' => [
                                   'm'
                                 ],
                     'users' => [
                                  'hh',
                                  'do'
                                ],
                     'date_end' => '24/05-2011',
                     'title' => 'dfg',
                     'date_begin' => '24/05-2011',
                     'members_groups' => [],
                     'type' => 'individuel'
                   },
          '276' => {
                     ...
6
задан Sandra Schlichting 6 June 2011 в 13:13
поделиться