XML::Simple, XMLin()

#!/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; 

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!