Foro - Perl en Español

¿Por qué has quitado el push()?

La asignación

@arraycodigos = $codigo ;

es la que hace que solo se guarde el último $codigo dentro de @arraycodigos.

ok, sacando la línea @arraycodigos = $codigo ;
y dejando push ( @arraycodigos, $codigo ) ;

El resultado desde el cliente es el primer registro solamente, ¿¿hay alguna manera de imprimir el listado completo... o de corroborar qué está pasando o no pasa entre cliente servidor...??

Código de servidor.pl

while (($codigo) = $sth->fetchrow_array) {
push ( @arraycodigos, $codigo ) ;
}
return @arraycodigos ;

Código cliente:

foreach my $valor (@$arraycodigos) {
print "$valor\n";
};

Data::Dumper te puede indicar el contenido de las variables.

Creo recordar que se puede activar un modo de depurado o debug. Busca en estos foros por Soap::Lite, pues hay algunos ejemplos de cómo activarlo.

Hummm, mira, creo que el problema lo tengo en la lógica o hay algo que no sé cómo poner... realicé una prueba con un array armado previamente para evitar errores en la respuesta o armado de arrays...

servidor
@arreglo = ('A','B','C');
return @arreglo ;

cliente
foreach my $valore (@$arreglo) {print "$valore\n";};

resultado
A

Es algo raro porque si fuera un error de código apareciera algo diferente y no el primer registro del array... Hummm seguiré buscando...

Hummm usando
use Data::Dumper;
print Dumper(@data);

en el cliente sigue saliendo el primer registro...

Seguiré buscando y probando para pasar arrays completos... o algo más que un registro.

Es que yo creo recordar que las estructuras complejas (más complejas que un escalar) no se podían enviar de esa manera, como lo estás haciendo tu, desplegadas, sino que había que devolver la referencia al array o hash que las contiene.

En este hilo expuse un servidor que pasaba un hash al cliente, así que supongo que pasar un array será lo mismo: pasando la referencia.

Yo, desde luego, no pienso meterme más con SOAP. Ya tuve bastante en aquella época.

Te aconsejo que te mires los hilos de SOAP de estos foros. Usa el sistema de búsqueda.

A ver... Y cuando tienes que montar algún servicio que sirva a aplicaciones en distintos lenguajes ¿qué me recomienzas que utilice... para armar un servicio?

Con el debug entiendo ver en el cliente que un array con a,b,c pasan correctamente... ahora solo me falta descubrir cómo tomo ese array completo... ya que doy por hecho que pasa correctamente... según el debug.



La suma de 3 y 4 es ARRAY(0x2773e64)

Lo más moderno, hoy en día, es usar JSON.

En CPAN hay, en estos momentos, 56 distribuciones con la palabra "SOAP", en el nombre, mientras que de "JSON" hay 89.

Bueno, pues si el array se pasa bien, quizás es a la hora de recogerlo.

Ya te he dicho que yo lo hice pasando (y recibiendo) una referencia al array.

Ahora bien, yo he hecho muy poco de SOAP, así que no sé decirte si es posible recibirlo de otra manera. Ahora mismo no sé si se puede leer de forma directa o si como comentaba en el otro hilo, antes hay que deserializarlo.

¡Upa!, si por referencia va bien. Le puse un count al select de la consulta SQL y me trajo el total.

Luego sería cuestión de ir armando el esquema.... creo que se tornaría un poco lento pero me sirve de todas formas... En caso de querer traer una línea completa, digamos que se haría un poco pesado el tema... ¿¿no??

Imaginemos que tengo que traer 30 registros con 10 columnas... me parece que por referencia la pasaré de fiesta con una consulta así... pero todo bien... si quiere las cosas armadas me tendría que dedicar a otra cosa... ¡je,je!


Ahora veré JSON, a ver como va ese tema... Gracias y sigo aprendiendo...