如何用SOAP::Data来生成web service方法getTrainBranchInfo的入参？

yaoliwei

如何用SOAP:: Data来生成web service方法getTrainBranchInfo的入参？

下面是从soap ui中抓取出来的方法getTrainBranchInfo的定义，
m_f6778_esbf是对唯一参数branchName的赋值  在soap ui中可以成功调用 但是在程序中老是报缺参数错误。

   <soapenv:Body>
      <mer:getTrainBranchInfo>
         <SearchTrainBranchInputType>
            <branchName>m_f6778_esbf</branchName>
         </SearchTrainBranchInputType>
      </mer:getTrainBranchInfo>
   </soapenv:Body>


我是这样调用的，

1. 
   
2. my $soapUri        = 'xxx';
   
3. my $proxy        = 'xxx';
   
4. 
   
5. 
   
6. my $lite = new SOAP::Lite
   
7.         uri                => $soapUri,
   
8.         proxy        => $proxy,
   
9. ;
   
10. 
    
11. 
    
12. my $result = $lite->getTrainBranchInfo(SOAP::Data->name('SearchTrainBranchInputType' => \SOAP::Data->value(SOAP::Data->name('branchName' => 'm_f6778_esbf'))));
    
13. 
    
14.                                                                                                                        
    
15. # check for error
    
16. unless ($result->fault) {
    
17.         my $BranchInfo = $result->result();
    
18. 
    
19. } else {
    
20.         # error handling
    
21.         print join ', ',
    
22.                 $result->faultcode,
    
23.                 $result->faultstring,
    
24.                 $result->faultdetail;
    
25. }       
    

复制代码

本人实在搞不定 感谢。