? 最近寫爬蟲的時候需要用到JSON和字符串之間的轉(zhuǎn)換。由于之前寫過一個方法抗碰，一直沒記錄踩身，每次用還得重新寫顺又。
今天在這里保存一下，以后可能會用得到毕籽。
程序代碼為上圖
附上代碼：
use JSON;
##將JSON數(shù)據(jù)轉(zhuǎn)換為字符串
subsprintJSON{
my$JSON;
my$resourceJOSN=shift;
##初始化
$JSON =JSON->new->allow_nonref;
return$JSON->encode($resourceJOSN);
}
##將字符串轉(zhuǎn)換為JSON格式的數(shù)據(jù)
subdecodeJSON{
my$JSON;
my$String =shift;
##初始化
$JSON =JSON->new->allow_nonref;
return$JSON->decode($String);
}
? 使用方式很簡單聋涨，只需要傳入想要轉(zhuǎn)換的內(nèi)容即可趣钱。(*^__^*)?
轉(zhuǎn)載請注明地址及作者芙扎。謝謝?www.reibang.com/p/87d1bf09031f
