perl 中 JSON对象和字符串之间的转换

  最近写爬虫的时候需要用到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