[Roma.pm] xml + tag name

[Flavio Poletti]

Uhm... perché? Non capisco quale sarebbe la non-HOP way, in questo caso.

Ciao,

   Flavio.

> 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.
> _______________________________________________
> Roma mailing list
> Roma at pm.org
> http://mail.pm.org/mailman/listinfo/roma
>