美文网首页程序员
perl 中 JSON对象和字符串之间的转换

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

作者: 4年了还是个菜比 | 来源:发表于2017-07-31 11:57 被阅读0次

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

相关文章

网友评论

    本文标题:perl 中 JSON对象和字符串之间的转换

    本文链接:https://www.haomeiwen.com/subject/lpnllxtx.html