Foro - Perl en Español

por **danimera** » 2008-07-29 08:18 @387

Tengo esta estructura

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$xml={
'fuente'=>[
{
'1'=>['dato1'],
'2'=>['dato2'],
'3'=>['dato3'],
'4'=>['dato4']
}
]
};Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

¿En qué se diferencia de esta otra?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$xml{'fuente'}[0]=
{
'1'=>['dato1'],
'2'=>['dato2'],
'3'=>['dato3'],
'4'=>['dato4']
}
;Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Lo que deseo es a la primera estructura poder agregarle datos de algunas forma con push o algo así dinámicamente y pasarle esta estructura:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$file={
'1'=>["nuevo1"],
'2'=>["nuevo2"],
'3'=>['nuevo3'],
'4'=>['nuevo4']
};Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

para que me quede algo como esto en aumento:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$xml={
'fuente'=>[
{
'1'=>['dato1'],
'2'=>['dato2'],
'3'=>['dato3'],
'4'=>['dato4']
}
],[
'1'=>["nuevo1"],
'2'=>["nuevo2"],
'3'=>['nuevo3'],
'4'=>['nuevo4']
]

};Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Bueno si tengo algo mal ahí, me corrigen; es que me está complicando mucho esa aplicación y esto es para pasarlo al XML::Simple.

En la primera, $xml contiene una referencia a la estructura, mientras que en la segunda, estamos hablando de %xml (un hash).

Tienes un error en el último esquema: fíjate que 'fuente' contiene dos array anónimos separados por una coma. Un valor de un hash solo es un escalar.

Yo creo que quieres decir

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$xml={
'fuente'=>[
{
'1'=>['dato1'],
'2'=>['dato2'],
'3'=>['dato3'],
'4'=>['dato4']
},
{
'1'=>["nuevo1"],
'2'=>["nuevo2"],
'3'=>['nuevo3'],
'4'=>['nuevo4']
},
],
};Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

es decir, 'fuente' contiene un array, cuyos componentes son hash.

Con el siguiente programa, lo tienes:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;


my$file={
'1'=>["nuevo1"],
'2'=>["nuevo2"],
'3'=>['nuevo3'],
'4'=>['nuevo4']
};

my$xml={
'fuente'=>[
{
'1'=>['dato1'],
'2'=>['dato2'],
'3'=>['dato3'],
'4'=>['dato4']
}
]
};

push@{$xml->{fuente}},$file;

use Data::Dumper;
print Dumper($xml);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Explicación de esta estructura

Explicación de esta estructura

Publicidad

¿Quién está conectado?