Perl使用技巧18：处理json数据

arche77

Perl使用技巧18：处理json数据

use Switch;
use Perl6::Say;
use Data:rinter;
use Data:umper;

use JSON;                                                                        #from_json to_json
use JSON:arse qw(valid_json);                                #valid_json

$TEST_json='{"a":1,"b":2}';
say $TEST_json;

if (valid_json($TEST_json)) {
        say "json format ok";
}else{
        say "json format err";
}


$json=from_json($TEST_json);
say Dumper($json);

$json->{'a'}=3;
say Dumper($json);

$s=to_json($json);
say $s;

运行结果如下：

{"a":1,"b":2}
json format ok
$VAR1 = {
          'a' => 1,
          'b' => 2
        };

$VAR1 = {
          'a' => 3,
          'b' => 2
        };

{"a":3,"b":2}

最最常用的就是这3个函数，判断格式是否正确，转成perl对象，以及转成字符串

104359176

1. use JSON qw(encode_json decode_json);

复制代码

to_json/from_json 已经在新版本的模块中被废止。