建站
咨詢
售后
建站咨詢
新聞中心
本教程將會(huì)教我們?nèi)绾问褂?Perl 編程語(yǔ)言編碼和解碼 JSON 對(duì)象。讓我們先來(lái)準(zhǔn)備環(huán)境以便針對(duì) JSON 進(jìn)行 Perl 編程。
創(chuàng)新互聯(lián)公司總部坐落于成都市區(qū)，致力網(wǎng)站建設(shè)服務(wù)有成都網(wǎng)站制作、網(wǎng)站設(shè)計(jì)、網(wǎng)絡(luò)營(yíng)銷策劃、網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站維護(hù)、公眾號(hào)搭建、小程序開(kāi)發(fā)、軟件開(kāi)發(fā)等為企業(yè)提供一整套的信息化建設(shè)解決方案。創(chuàng)造真正意義上的網(wǎng)站建設(shè)，為互聯(lián)網(wǎng)品牌在互動(dòng)行銷領(lǐng)域創(chuàng)造價(jià)值而不懈努力！
環(huán)境
在開(kāi)始使用 Perl 編碼和解碼 JSON 之前，我們需要安裝 JSON 模塊，可以從 CPAN 中獲取。下載 JSON-2.53.tar.gz 或者其他任意最新版本之后請(qǐng)按照下列步驟操作：
$tar xvfz JSON-2.53.tar.gz
$cd JSON-2.53
$perl Makefile.PL
$make
$make installJSON 函數(shù)
| 函數(shù) | 程序庫(kù) |
|---|---|
| encode_json | 將給定的 Perl 數(shù)據(jù)結(jié)構(gòu)轉(zhuǎn)為 UTF-8 編碼的二進(jìn)制字符串。 |
| decode_json | 解碼 JSON 字符串。 |
| to_json | 將給定的 Perl 數(shù)據(jù)結(jié)構(gòu)轉(zhuǎn)換為 JSON 字符串。 |
| from_json | 接受一個(gè) JSON 字符串并試圖解析它，返回結(jié)果引用。 |
| convert_blessed | 給這個(gè)函數(shù)傳遞 true，則 Perl 可以使用這個(gè)對(duì)象類的 TO_JSON 方法將對(duì)象轉(zhuǎn)換為 JSON。 |
使用 Perl 編碼 JSON（encode_json）
Perl 的 encode_json() 函數(shù)可以將給定的 Perl 數(shù)據(jù)結(jié)構(gòu)轉(zhuǎn)換為 UTF-8 編碼的二進(jìn)制字符串。
語(yǔ)法：
$json_text = encode_json ($perl_scalar );
or
$json_text = JSON->new->utf8->encode($perl_scalar);示例：
下面的例子展示了使用 Perl 將數(shù)組轉(zhuǎn)換為 JSON：
#!/usr/bin/perl
use JSON;
my %rec_hash = ('a' => 1, 'b' => 2, 'c' => 3, 'd' => 4, 'e' => 5);
my $json = encode_json \%rec_hash;
print "$json\n";執(zhí)行時(shí)生成如下所示結(jié)果：
{"e":5,"c":3,"a":1,"b":2,"d":4}下面的例子展示了如何將 Perl 對(duì)象轉(zhuǎn)換為 JSON：
#!/usr/bin/perl
package Emp;
sub new
{
my $class = shift;
my $self = {
name => shift,
hobbies => shift,
birthdate => shift,
};
bless $self, $class;
return $self;
}
sub TO_JSON { return { %{ shift() } }; }
package main;
use JSON;
my $JSON = JSON->new->utf8;
$JSON->convert_blessed(1);
$e = new Emp( "sachin", "sports", "8/5/1974 12:20:03 pm");
$json = $JSON->encode($e);
print "$json\n";執(zhí)行時(shí)生成如下所示結(jié)果：
{"birthdate":"8/5/1974 12:20:03 pm","name":"sachin","hobbies":"sports"}使用 Perl 解碼 JSON（decode_json）
Perl 的 decode_json() 函數(shù)用于在 Perl 中解碼 JSON。這個(gè)函數(shù)返回從 JSON 解碼到適當(dāng) Perl 類型的值。
語(yǔ)法：
$perl_scalar = decode_json $json_text
or
$perl_scalar = JSON->new->utf8->decode($json_text)示例：
下面的例子展示了如何使用 Perl 解碼 JSON 對(duì)象。如果你的機(jī)器上沒(méi)有 Data::Dumper 模塊那么你需要安裝這個(gè)模塊。
#!/usr/bin/perl
use JSON;
use Data::Dumper;
$json = '{"a":1,"b":2,"c":3,"d":4,"e":5}';
$text = decode_json($json);
print Dumper($text);執(zhí)行時(shí)生成如下所示結(jié)果：
$VAR1 = {
'e' => 5,
'c' => 3,
'a' => 1,
'b' => 2,
'd' => 4
};網(wǎng)站標(biāo)題：創(chuàng)新互聯(lián)JSON教程：在Perl中使用JSON
本文來(lái)源：http://www.dlmjj.cn/article/codpcdg.html
