XML::Simple, XMLin()
2016-05-19 10:20
183 查看
#!/usr/bin/perl -w use strict; use XML::Simple; my $text = <<xml; < ?xml version="1.0"? > <web-app> <servlet> <servlet-name>php</servlet-name> <servlet-class>net.php.servlet</servlet-class> </servlet> <servlet-mapping> <servlet-name>php</servlet-name> <url-pattern>*.php</url-pattern> </servlet-mapping> </web-app> xml my $x = XMLin($text); foreach my $tag(keys %$x) { my %h = %{$$x{$tag}}; foreach(keys %h) { print "$tag => "; print "$_ => $h{$_}\n"; } } exit 0;
相关文章推荐
- Canvas线段的绘制
- style
- delete 和 delete []的真正区别
- 一种保持顺序的Properties
- jquery显示隐藏元素的实现代码
- C++ 常用
- Tomcat 优化方案 和 配置详解
- Struts2常用注解
- xunsearch安装及环境检测(一)
- c#xml追加读取节点
- php代码开启缓冲的使用方法
- 对于pod导入第三方库文件终端语言记录
- Python之路【第二十三篇】爬虫
- 怎么面试架构师
- Linux下查看wav文件的头信息-sox
- linux设备驱动开发详解(基于4.0内核)_读书笔记二
- Except
- Android 代码混淆心得!
- iOS应用架构谈 组件化方案
- 详解Service生命周期以及启动方法和停止方法