请教WSDL::Generator使用方法

m0925j

server端

1. 
   
2. #!c:/perl/bin/perl
   
3. #1.pl
   
4. use SOAP::Transport::HTTP;
   
5.   SOAP::Transport::HTTP::CGI
   
6.     -> dispatch_to('Demo')
   
7.     -> handle;
   
8.   package Demo;
   
9. sub hi {
   
10.         my $class=shift;
    
11.         my $user=shift;
    
12. return "hello,$user";
    
13. }
    
14. sub bye {
    
15.         my $class=shift;
    
16.         my $user=shift;
    
17. return "goodbye,$user";
    
18. }
    

复制代码

client端

1. 
   
2. #!c:/perl/bin/perl
   
3. use SOAP::Lite;
   
4. print SOAP::Lite
   
5.     -> uri('http://192.168.61.52/Demo')
   
6.     -> proxy('http://192.168.61.52/test/1.pl')
   
7.     -> hi('df')
   
8.     -> result;
   

复制代码

以上测试成功，请问怎么用WSDL::Generator生成wsdl文件呀，照着WSDL-Generator-0.02里面的HowTo-SOAPLite.txt弄了半天也没成功，麻烦有经验的同学教教怎么办，谢谢

m0925j

或者介绍一个其他的能自动生成wsdl文件的模块吧