perl web services 的WSDL问题

among29

我用apache，配置了 perl的web services。

服务器端如下:

1. #soap.cgi
   
2. use warnings;
   
3. use strict;
   
4. use SOAP::Transport::HTTP;
   
5. 
   
6. SOAP::Transport::HTTP::CGI
   
7.         -> dispatch_to('E:/www/WebServices/PM','Module::Name','Module::method')
   
8.         -> options({compress_threshold => 10000})
   
9.         -> handle
   
10. ;

复制代码

这个cgi放在apache下的一个虚拟目录中，'E:/www/WebServices/PM' 下面为我自己写的pm包的总目录。

我在下面的客户端连接：

1. use warnings;
   
2. use strict;
   
3. use SOAP::Lite;
   
4. 
   
5. my $soap = SOAP::Lite
   
6.         -> uri('/examples/helloservice')
   
7.         -> proxy('http://192.168.200.2:8000/services/soap.cgi', timeout => 5);
   
8. 
   
9. my $bb = $soap->sayHello("aa")->result();
   
10. 
    
11. print " this is result : $bb \n";

复制代码

这个可以执行，也可以获得 examples::helloservice.pm 中的 sayHello的方法的数据。


我现在的问题是，想通过写WSDL来实现，
我写的WSDL如下：

1. <definitions name="HelloService"
   
2.    targetNamespace="http://www.ecerami.com/wsdl/HelloService.wsdl"
   
3.    xmlns="http://schemas.xmlsoap.org/wsdl/"
   
4.    xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
   
5.    xmlns:tns="http://www.ecerami.com/wsdl/HelloService.wsdl"
   
6.    xmlns:xsd="http://www.w3.org/2001/XMLSchema">
   
7. 
   
8.    <message name="SayHelloRequest">
   
9.       <part name="firstName" type="xsd:string"/>
   
10.    </message>
    
11.    <message name="SayHelloResponse">
    
12.       <part name="greeting" type="xsd:string"/>
    
13.    </message>
    
14. 
    
15.    <portType name="Hello_PortType">
    
16.       <operation name="sayHello">
    
17.          <input message="tns:SayHelloRequest"/>
    
18.          <output message="tns:SayHelloResponse"/>
    
19.       </operation>
    
20.    </portType>
    
21.    
    
22.    <binding name="Hello_Binding" type="tns:Hello_PortType">
    
23.       <soap:binding style="rpc"
    
24.          transport="http://schemas.xmlsoap.org/soap/http"/>
    
25.       <operation name="sayHello">
    
26.          <soap:operation soapAction="sayHello"/>
    
27.          <input>
    
28.             <soap:body
    
29.                encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
    
30.                namespace="urn:examples:helloservice"
    
31.                use="encoded"/>
    
32.          </input>
    
33.          <output>
    
34.             <soap:body
    
35.                encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
    
36.                namespace="urn:examples:helloservice"
    
37.                use="encoded"/>
    
38.          </output>
    
39.       </operation>
    
40.    </binding>
    
41. 
    
42.    <service name="Hello_Service">
    
43.       <documentation>WSDL File for HelloService</documentation>
    
44.       <port binding="tns:Hello_Binding" name="Hello_Port">
    
45.          <soap:address
    
46.             location="http://192.168.200.2:8000/services/soap.cgi"/>
    
47.       </port>
    
48.    </service>
    
49. </definitions>

复制代码

我在客户端用: hello.pl

1. use SOAP::Lite;
   
2. print "Connecting to Hello Service...\n";
   
3. my $soap =  SOAP::Lite
   
4.    -> service('http://192.168.200.2:8000/wsdl/HelloService.wsdl');
   
5. 
   
6. my $result = $soap->sayHello('aa');
   
7. 
   
8. print $result->result();

复制代码

这样使用就有问题，大家帮我看看。

Connecting to Hello Service...
Can't call method "result" on an undefined value at hello.pl line 8.
搞了好久了，还是有问题。
多谢大家。

[ 本帖最后由 among29 于 2008-12-15 14:54 编辑 ]

ziggler

通过WSDL的话，客户端的写法应该不同吧？