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 已經在新版本的模塊中被廢止。