使用JSON::PullParser正确移动类型

use JSON::PullParser;

my $json_text = '{"name": "Alice", "age": 30, "city": "New York"}';

my $parser = JSON::PullParser->new(\*STDIN, max_size => 1024 * 1024);

my $obj = $parser->parse;

while (my ($key, $value) = each %$obj) {
    print "Key: $key, Value: $value\n";
}

cpan JSON::PullParser