请教一段SOAP客户端代码

SAS

看了几天资料，编写出来的代码返回的都不正确。

目前已知如下信息：
服务地址：http://127.0.0.1:9080/axis/services/BizService
方法名称：public String runBiz(String packageName, String bizDataXML)
这个接口是输入一个XML类型的字串，返回一个字符串
$bizDataXML="<?xml version=\"1.0\" encoding=\"GB2312\"?>
<root>
        <data>
                <WGINFOR>XXXXXXXX</WGINFOR>
                <TIME>2010-09-19 18:17:20</TIME>
";
请教高人在perl里面该怎么写这个SOAP的客户端？

先谢了

SAS

我现在的代码如下：

1. 
   
2. #!/usr/bin/perl
   
3. use SOAP::Lite +trace;
   
4. my $bizDataXML="<?xml version=\"1.0\" encoding=\"GB2312\"?>
   
5. <root>
   
6.         <data>
   
7.                 <WGINFOR>XXXXXXXX</WGINFOR>
   
8.                 <TIME>2010-09-19 18:17:20</TIME>
   
9. ";
   
10. 
    
11. my $s = SOAP::Lite
    
12.     ->uri('runBiz')
    
13.     ->proxy("http://127.0.0.1:9080/axis/services/BizService");
    
14. my $modth=SOAP::Data->name('runBiz')
    
15.                     ->attr(packageName=>"ISS_KM",
    
16.                           bizDataXML=>$$bizDataXML
    
17.                            );
    
18. print $s->result();
    
19. 
    
20. 
    

复制代码

但是返回的值肯定是不正确的，

而且信息中有
SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 500 Internal Server Error

是那个参数不对吗？请高人指教

SAS

没人对这块熟悉么

yifangyou

你可以看看下面文章《最简单的SOAP服务端和客户端代码》
http://blog.chinaunix.net/space. ... =blog&id=260348