perl 发布webservice

ssg502

回复 10# 芙蓉女侠
配置完成了，我现在不明白，给的URL地址应该是什么样子的，打开url里面应该显示什么

   

ssg502

回复 10# 芙蓉女侠
可以给个webservice的demo吗

ssg502

回复 12# 芙蓉女侠
test.cgi应该怎么写呢

   

fuzhong0830

服务端的例子:http://blog.csdn.net/aylazhang/article/details/4062476

客户端的例子：http://wiki.servicenow.com/index ... ces_Client_Examples

http://guide.soaplite.com/

ssg502

回复 15# fuzhong0830
这个我看了,不是标准webservice，别的语言都没有办法调用

   

兰花仙子

webservice是一个通用概念，不一定要用mod_perl，CGI完全可以。
Soap已经out了。你自己定制个协议，使用JSON就行。
更通用的，我们用Thrift，支持各种语言客户端。

ssg502

难道perl就不能发布webservice吗？？？

dahe_1984

有点意思有点意思有点意思有点意思有点意思有点意思有点意思有点意思有点意思有点意思有点意思

huhuegg

#!/usr/bin/perl -w

#Filename:     auth_server.pl
#Version:      v0.0.1
#LastEdit:     2012-06-27
#Description:  SOAP Server

use strict;
use utf8;

use SOAP::Transport::HTTP;
use PmWSDL;

sub main {
    print "Starting SOAP server\n";

    my $daemon = SOAP::Transport::HTTP:aemon
        -> new (LocalPort => 8082, Reuse => 1, Listen => 5 )
        -> dispatch_to('PmWSDL')
        -> options({compress_threshold => 10000})
        ;

    print "Contact to SOAP server at ", $daemon->url, "\n";
    $daemon->handle;
    exit 1;
}

exit main();