XMLRPC en Perl (Cliente)

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 modulo Frontier::Client empleado 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 pais para investigar el clima en el Servidor.

• La variable servidor es definida con una instancia y variable del Cliente.

• Finalmente através de la variable respuesta se obtiene el resultado de llamar al Servidor con los respectivos valores.