El siguiente programa (Cliente) esta diseñado para realizar solicitudes de "Estado del Tiempo" vía XMLRPC hacia un servidor que opera en el puerto TCP 12000 de la maquina local (localhost), después se observará como este mismo Cliente puede realizar solicitudes a otros Servidores que no están escritos en Perl.
En base a su ambiente puede generar el siguiente Cliente XMLRPC
Asegurese que un Servidor este corriendo bajo dicho puerto
|
Código Fuente ClienteClima Cliente Java en XMLRPC
#!/usr/bin/perl use Frontier::Client; $url = 'http://localhost:12000/RPC2'; |
if ($ARGV[0] eq "") {
print "Utilización: perl ClienteClima.pl <país>\n";
exit(-1);
}
|
$servidor = Frontier::Client->new( url => $url );
printf "El clima en ";
$respuesta = $servidor->call('clima.mundial',"$ARGV[0]");
printf "$respuesta \n";
|
Primeramente se declara que este programa utilizará el interpretador de Perl (
#!/usr/bin/perl), seguido de la utilización del moduloFrontier::Clientempleado para Clientes XMLRPC.Se define la ubicación del servidor bajo la variable
url, en este caso corresponde al puerto TCP 12000 de la máquina local.Se revisa que haya sido proporcionado el parámetro de
paispara investigar el clima en el Servidor.La variable
servidores definida con una instancia y variable del Cliente.Finalmente através de la variable
respuestase obtiene el resultado de llamar al Servidor con los respectivos valores.
