[Roma.pm] xml + tag name

[Ortolani Dante]

mi sa molto di HOP WAY!  
LucaS  
  
> per ricavare i tag usando  
> XML::Simple puoi basarti sull'esempio che trovi qua sotto.  
>  
> cheers, Aldo  
>  
> use XML::Simple;  
> my $data; { undef $/; $data = <DATA>; }  
> my $x = XMLin( $data, KeepRoot => 1 );  
>  
> walktree(0, $x);  
>  
> sub walktree { my($level, $node) = @_; foreach my $tag (keys %$node)  
> { print " " x $level, "$tag\n"; walktree($level+1, $node->{$tag}) if  
> ref($node->{$tag}) eq 'HASH'; } }  
>  
> __DATA__  
> <a>  
>   <b>  
>     <c />  
>     <d /> 
>   </b> 
> </a>  
  
  
Luca Dante Ortolani  
-------------------------------------  
Direzione Amministrativa e Commerciale  
Ecosystem S.p.A.