XMLRPC::Lite

[Perl]

Daemon server

#!/usr/bin/perl

use XMLRPC::Transport::HTTP;

my $daemon = XMLRPC::Transport::HTTP::Daemon
	-> new (LocalPort => 8080)
	-> dispatch_to('KSKNET')
;
$daemon->handle;

package KSKNET;
sub hello {
	return "Hello World!\n";
}

CGI server

#!/usr/bin/perl


use XMLRPC::Transport::HTTP;

my $server = XMLRPC::Transport::HTTP::CGI->dispatch_to('KSKNET')->handle;

package KSKNET;

sub hello {
	return "Hello World!\n";
}

Client

#! /usr/bin/perl

use strict;
use warnings;
use XMLRPC::Lite;

my $result = XMLRPC::Lite->proxy("http://localhost:8080/")->call("KSKNET.hello")->result;
print $result;

---

---