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

Chinaunix

標題: Perl使用技巧18：處理json數(shù)據(jù) [打印本頁]

作者: arche77 時間: 2015-12-15 13:41
標題: 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);

復制代碼

to_json/from_json 已經(jīng)在新版本的模塊中被廢止。

歡迎光臨 Chinaunix (http://www.72891.cn/)