See: http://www.perl.com/pub/2001/01/soap.html
SOAP server: server.cgi
#!/usr/bin/perl -w
use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI
-> dispatch_to('Demo')
-> handle;
package Demo;
sub hi {
return "hello, world\n";
}
sub languages {
return ("Perl", "C", "sh");
}
SOAP client: client.pl
#!/usr/bin/perl -w
use SOAP::Lite;
$s = SOAP::Lite
-> uri('http://localhost/Demo')
-> proxy('http://localhost/DFetch_stamp/tmp/hibye.cgi')
-> hi()
-> result; # can use result() too.
print $s;
Now run: perl client.pl, you can see the output.
Other notes:
- multiple line comments in perl: start with "=pod", end with "=cut".
No comments:
Post a Comment