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

2019年6月13日 453次阅读 来源: 谁说程序员情商低

  最近写爬虫的时候需要用到JSON和字符串之间的转换。由于之前写过一个方法，一直没记录，每次用还得重新写。

今天在这里保存一下，以后可能会用得到。

《perl 中 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

    原文作者：谁说程序员情商低
    原文地址: https://www.jianshu.com/p/87d1bf09031f
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞