perl将json转换成xml

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了perl将json转换成xml，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含486字，纯文字阅读大概需要1分钟。

内容图文

#!/usr/bin/perl

use strict;
use JSON::Any;
use XML::Simple;

my $json = '{"name":"zhumao","pass":"123","other":[{"a0":"a0a0a0","b0":"b0b0b0"},{"a1":"a1a1a1","b1":"b1b1b1"}]}';

$json=~s/[\x00-\x1f]//g;#过滤不可见字符
my $convertor = JSON::Any->new();
my $data = $convertor->decode($json);
my $xml = XMLout($data);#生成xml

open(O,">:utf8","test.xml");#将xml写入文件(如果有中文，需要加:utf8)
print O qq#<?xml version="1.0" encoding="UTF-8"?>\n#;
print O $xml;
close(O);

注：不要使用JSON2XML，很难用。

内容总结

以上是互联网集市为您收集整理的perl将json转换成xml全部内容，希望文章能够帮你解决perl将json转换成xml所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---