[Cascavel-pm] Perl X XML

[Lorn]

Estou usando o XML::Simple
use XML::Simple;
use Data::Dumper;

my $ref = XMLin('index.xml');

print $ref->{days}->{item_file}->{pages};
$ref->{days}={item_file}->{pages}=10;

XMLout($ref, OutputFile => 'index2.xml');

o problema com isso e que ele "sobrescreve" todo meu .xml, eu queria
que ele criasse uma Tag quando eu adicionasse ao hash, então teria um
hash, que teriam "sub-hashs" de nomes iguais, mas os "sub-hashs"
desses "sub-hashs" não seriam iguais entendeu?
é tipo assim:
<validador>
<hostname value="www.lorn..com.br"></hostname>
<days>
<item_file value="20050602.xml" desc="Jun 2005" pages="5" erros="25"
versao="067"></item_file>
</days>
</validador>

eu estou escrevendo isso já. só que quero adicionar coisas tipo

<validador>
<hostname value="www.lorn.com.br"></hostname>
<days>
<item_file value="20050602.xml" desc="Jun 2005" pages="5" erros="25"
versao="067"></item_file>
<item_file value="20050603.xml" desc="Jun 2005" pages="5" erros="25"
versao="067"></item_file>
<item_file value="20050604.xml" desc="Jun 2005" pages="5" erros="25"
versao="067"></item_file>
</days>
</validador>

Mas quando faço isso, ele sobrescre o antigo, não adiciona uma linha
nova, tem algum metodo do XML::Simple que arrume isso, eu procurei e
nao achei.



On 6/2/05, Luis Campos de Carvalho <monsieur_champs em yahoo.com.br> wrote:
> --- Lorn <lorn.br em gmail.com> escreveu:
> > E ai pessoal blz? sei que deve estar todo mundo em POA ( também queria
> > ir ),
> 
>   Não, Lorn, não está todo mundo em POA. Eu estou em SAO. :-)
> 
> > mais
> 
>   "mais" é ruim: tente "mas".
> 
> > estou com uma duvida aqui, preciso pegar um arquivo XML
> > alterar ele e salvar de novo ele com o mesmo nome, e não tenho a
> > minima ideia de como fazer isso, alguma sugestão?
> 
>   Veja o XML::DOM, XML::SAX e o XML::Parse. Isso deve ajudar você a começar.
> 
>   Espero que você saiba o suficiente sobre XML para começar... caso contrário, vai precisar de um
> tutorial. Eu não sei onde tem nada mais didático que o www.w3schools.com.
> 
>   Talvez o XML::Ximple, combinado com algum código extra para fazer a coisa ficar simples também
> possa servir. Depende só se você está atrás de um hack rápido ou de uma ferramenta mais perene.
> 
>   Putamplexos!
> 
> --
> Luis Campos de Carvalho
> Member of "São Paulo Perl Mongers",
> Unix SysAdmin & OCP/DBA Oracle
> http://br.geocities.com/monsieur_champs/
> 
> 
> 
> 
> 
> ____________________________________________________
> Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis! http://mail.yahoo.com.br
> 


-- 
Lorn 
- Slackware Linux
www.slackwarezine.com.br