Skip to content

Instantly share code, notes, and snippets.

@aero
Forked from olegwtf/json_ordered.pl
Last active August 29, 2015 14:20
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save aero/330c6ddae5469d232d40 to your computer and use it in GitHub Desktop.
Save aero/330c6ddae5469d232d40 to your computer and use it in GitHub Desktop.
json을 읽어 원래 json 필드 순서 유지
use strict;
use Tie::IxHash;
use JSON::PP;
# magic start
my $obj_parser_sub = \&JSON::PP::object;
*JSON::PP::object = sub {
tie my %obj, 'Tie::IxHash';
$obj_parser_sub->(\%obj);
};
# magic end
use Data::Dumper;
my $res = decode_json('{"a":1,"b":2,"c":3}');
print Dumper $res;
$res->{b} = 'xx';
print encode_json($res), "\n";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment