AI时代，找源码已成为过去式，纪念我过去的十年0(回)
71天前
还有人吗2(回)
89天前会python真的可以为所欲为0(回)
569天前
这里还有人吗2(回)
754天前这里还有人吗0(回)
754天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
979天前#!/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; |
by: 发表于：2017-09-13 14:15:36 顶(0) | 踩(0) 回复
??
回复评论