亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: Perl使用技巧18：處理json數(shù)據(jù) [打印本頁]
作者: arche77    時間: 2015-12-15 13:41
標(biāo)題: Perl使用技巧18：處理json數(shù)據(jù)
Perl使用技巧18：處理json數(shù)據(jù)

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;

運行結(jié)果如下：

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

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

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

最最常用的就是這3個函數(shù)，判斷格式是否正確，轉(zhuǎn)成perl對象，以及轉(zhuǎn)成字符串
作者: 104359176    時間: 2015-12-16 11:01
  1. use JSON qw(encode_json decode_json);
復(fù)制代碼
to_json/from_json 已經(jīng)在新版本的模塊中被廢止。



歡迎光臨 Chinaunix (http://www.72891.cn/) Powered by Discuz! X3.2