Hola buenas. Ya teniendo el servicio web creado con Dancer me dispongo a crear un cliente que pueda consumir dicho servicio y mostrar la misma información que se muestra poniendo la URL pero en la aplicación… para ello adapte el código que encontré en CPAN en el módulo JSON::RPC::Client;
El cliente lo apunto a la dirección del servicio que en teoría funciona… pero me aparece el siguiente error… ahora bien, no sé si el error está en el servicio o en el cliente… o simplemente comencé de forma errónea... el que me pueda dar una mano se lo agradeceré...


Datos del servicio:

Dirección desde donde se ven los resultados a la base de datos: http://192.168.1.x:3000/id/

El servicio no tiene nada más que una consulta a una base de datos.


Error



Código del cliente...

¿Error? Yo veo que sale un hash bautizado como JSON::RPC::Client...

Ok, paso siguiente, utilicé while() para imprimir por pantalla el contenido del hash y no me muestra nada del contenido que tendría que mostrar, solo da un error de 404, que, revisando el URL, es correcto. Por ello no puedo identificar el error.

use strict;
use warnings;
use JSON::RPC::Client;

my $client = new JSON::RPC::Client;
my $url = 'http://192.168.1.42:3000/';
my $valor ;
my %hash ;

my $llamadodedirecciones = {
method => '',
params => [],
};
my $res = $client->call($url, $llamadodedirecciones);

if($res) {
if ($res->is_error) {
print "Error : ", $res->error_message;
}
else {
print $res->result;
}
}
else {
print $client->status_line;
}

$client->prepare($url, ['', 'echo']);
#print $client;
while (($client,$valor) = each %hash){
print "$client = $valor\n";
}

Probando el servicio la respuesta en un navegador es la siguiente.

JOSE
BARTOLOME
FERNANDO
ANA

El código del servicio web se conecta a una base de datos y va imprimiendo los valores como cualquier consulta , pero necesito saber si en lugar de imprimir el resultado se tiene que dejar en otro formato para que el cliente que os puse anteriormente lo pueda leer correctamente...

while (($Nombre) = $sth->fetchrow_array) {
print "$Nombre \n";
}
};
start;

se agradece cualquier piedrita de conocimiento…

Si estás usando JSON::Client, entonces él está esperando a que la respuesta que obtiene del servidor debe estar en formato JSON.

En la distribución JSON::RPC también existe el JSON::Server.

Seguramente el duro soy yo y me faltan conocimientos, así pondré otro hilo con una variante utilizando un servicio en otro lenguaje y conectar el mismo cliente Perl, y así voy siguiendo ambos casos y ver de sacarlos adelante.