亚洲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
use JSON qw(encode_json decode_json);
復(fù)制代碼
to_json/from_json 已經(jīng)在新版本的模塊中被廢止。
歡迎光臨 Chinaunix (http://www.72891.cn/)
Powered by Discuz! X3.2