Perl JSON解码和键值对的打印键

Question

我是Perl新手，想要循环JSON数据 这是我的代码：

use JSON::XS;
my $jsonxx = '{"a":1,"b":2,"c":3,"d":4,"e":5}';
my $text = decode_json($jsonxx);
foreach my $key(keys %$text) {
    print "$key\n";
}

，输出为：

e
c
a
b
d

但我想按照给定的键值对的顺序输出。

预期产出：

a
b
c
d
e

有人可以帮忙吗？

Answer 1

我想使用if会给你预期的输出：

sort