Foro - Perl en Español

Gracias explorer, he comenzado a sacar los datos de la forma que me has dicho... my($id_plan) = $respuesta_decodificada =~ m{<id_plan>(.*?)</id_plan>}; pero pasa que hay varios id_plan y me muestra solo el primero. ¿Me puedes ayudar en cómo puedo hacer un bucle para extraer el resto de los id_plan...? ¿Si te fijas hay varios valores dentro de los <tabla>....</tabla>

el xml es así..


Desde ya muchas gracias...

coltx escribiste:pero pasa que hay varios id_plan y me muestra solo el primero

Claro... y eso no lo habías dicho, y por eso la solución dada era ajustada a lo que pedías.

Sería algo así:
my @id_plan = $respuesta_decodificada =~ m{<id_plan>(.*?)</id_plan>}gsm;

Y los valores quedan guardados en el array.

En este artículo: Five Tips for .NET Programming in Perl se comentan (en inglés) los problemas que hay cuando se quiere realizar un servicio web contra un servidor web, usando SOAP::Lite.

Estimado explorer, gracias por tu ayuda. He logrado consumir desde el WS, pero pasa que algunos datos vienen vacíos y en el array no queda almacenado este "vacío". Al ejecutar esta consulta :

my @id_plan = $respuesta_decodificada =~ m{<id_plan>(.*?)</id_plan>}gsm;

Por ejemplo:


entonces el arreglo queda así @id_plan[1,3,5,6] , pero el "vacío" no lo almacena... Favor, tu ayuda. Gracias.

Sí que almacena el vacío. Lo que pasa es que no lo ves.

Mira esto:

Observa: hay un undef en la tercera posición.

Te entiendo explorer, pero pasa que al recorrer el arreglo con un for(), por ejemplo, no veo el vacío... y necesito ver ese vacío para guardarlo en una BD, por ejemplo:


#!/usr/bin/perl
my $respuesta_decodificada = '<id_plan>1</id_plan>
<id_plan>3</id_plan>
<id_plan></id_plan>
<id_plan>5</id_plan>
<id_plan>6</id_plan>';

my @id_plan = $respuesta_decodificada =~ m{<id_plan>(.*?)</id_plan>}gsm;


for($i=0 ; $i<6 ; $i++)
{
print @id_plan[$i]

}

_END_
1356

El "vacío", por definición, no se puede "ver", principalmente, porque está vacío.

O, dicho de otra manera: Si tuvieras un valor vacío, ¿qué valor quieres guardar en la base de datos?

¿'' o 0 o 'NULL'?

Si cambias el print que tienes en tu código, por

print "[$id_plan[$i]]";

entonces lo verás. Mejor dicho, no lo verás. Solo verás que sí existe el valor, pero vacío.

En Perl, los valores vacíos se convierten en cadenas de texto vacías, cuando se tratan en contexto de cadena, y en el valor 0 cuando se tratan en contexto numérico.

P.D. Usar @id_plan[$i] es un error. El '@' inicial indica que quieres obtener una lista de valores del array @id_plan, pero en realidad solo estás recuperando uno solo. Para eso, tienes que usar '$', como te he puesto en mi código.

Gracias, estimado explorer, revisaré el tema.