最近写爬虫的时候需要用到JSON和字符串之间的转换。由于之前写过一个方法，一直没记录，每次用还得重新写。
今天在这里保存一下，以后可能会用得到。
程序代码为上图
附上代码：
use JSON;
##将JSON数据转换为字符串
subsprintJSON{
my$JSON;
my$resourceJOSN=shift;
##初始化
$JSON =JSON->new->allow_nonref;
return$JSON->encode($resourceJOSN);
}
##将字符串转换为JSON格式的数据
subdecodeJSON{
my$JSON;
my$String =shift;
##初始化
$JSON =JSON->new->allow_nonref;
return$JSON->decode($String);
}
使用方式很简单，只需要传入想要转换的内容即可。(*^__^*)
转载请注明地址及作者。谢谢 www.jianshu.com/p/87d1bf09031f
