使用 perl 的 SOAP 客户端 - WSDL URL 可用

Question

我有一个 powershell 脚本，它将进行一次肥皂调用，并执行以下操作： 1.连接到托管 WSDL 的服务器（在应用程序术语中称为单元） 2.在其中创建一个事件（警报）。 3.与托管 WSDL 的服务器断开连接（在应用程序术语中称为单元） 我想创建这个脚本的 perl 版本.. 它执行相同的操作，请帮助我提供功能和示例。或者如果可能的话，用 perl 重写下面的脚本。 提前非常感谢您：

PS脚本如下：

================================================ =================================

$severity = "MAJOR"

$msg = "Test event from Powershell"
$cellname = "mycell"

$url = "http://iiwshostname:9080/imws/services/ImpactManager/"
$headers = @{ "SOAPAction" = "Connect"}
$soap = [xml]@"
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:imap="http://blueprint.bmc.com/ImapiElems">
   <soapenv:Header/>
   <soapenv:Body>
      <imap:Connect>
         <imap:userName>admin</imap:userName>
         <imap:password>admin</imap:password>
         <imap:imname>$cellname</imap:imname>
         <imap:bufferType>BMCII_BUFFER_MODE_DEFAULT</imap:bufferType>
      </imap:Connect>
   </soapenv:Body>
</soapenv:Envelope>
"@
[xml]$ret = Invoke-WebRequest $url -Method post -ContentType 'text/xml' -Body $soap -Headers $headers
$connectionId = $ret.GetElementsByTagName("imap:connectionId").'#text'

$headers = @{ "SOAPAction" = "SendEvent"}
$soap = [xml]@"
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:imap="http://blueprint.bmc.com/ImapiElems" xmlns:bas="http://blueprint.bmc.com/BasicTypes" xmlns:even="http://blueprint.bmc.com/Event">
   <soapenv:Header/>
   <soapenv:Body>
      <imap:SendEvent>
         <imap:connection>$connectionId</imap:connection>
         <imap:message>    
            <bas:NameValue_element>    
               <bas:name>msg</bas:name>    
               <bas:value>    
                  <bas:string_value>$msg</bas:string_value>    
               </bas:value>    
               <bas:value_type>STRING</bas:value_type>    
            </bas:NameValue_element>    
            <bas:NameValue_element>    
               <bas:name>severity</bas:name>    
               <bas:value>    
                  <bas:string_alue>$severity</bas:string_value>    
               </bas:value>   
               <bas:value_type>STRING</bas:value_type>    
            </bas:NameValue_element>              
            <even:subject></even:subject>    
         </imap:message>    
         <imap:timeout>60</imap:timeout>    
         <imap:messageClass>EVENT</imap:messageClass>    
         <imap:messageType>MSG_TYPE_NEW_EVENT</imap:messageType>    
      </imap:SendEvent>    
   </soapenv:Body>    
</soapenv:Envelope>    
"@    
[xml]$ret = Invoke-WebRequest $url -Method post -ContentType 'text/xml' -Body $soap -Headers $headers    

$mc_ueid = $ret.GetElementsByTagName("imap:response").'#text'    

$headers = @{ "SOAPAction" = "Disconnect"}    
$soap = [xml]@"    
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soapenvelope/" xmlns:imap="http://blueprint.bmc.com/ImapiElems">
       <soapenv:Header/>
       <soapenv:Body>
          <imap:Disconnect>
             <imap:connection>$connectionId</imap:connection>
             <imap:deleteBuffer>No</imap:deleteBuffer>    
      </imap:Disconnect>    
   </soapenv:Body>    
</soapenv:Envelope>    
"@    
$ret = Invoke-WebRequest $url -Method post -ContentType 'text/xml' -Body $soap -Headers $headers    

write-host $mc_ueid

================================================ =================================

Answer 1

正如@Grinnz 评论的那样：请不要使用 SOAP::Lite，它很难看。在 Perl 中通过 HTTP 运行 SOAP 操作的事实上的标准是XML::Compile::SOAP，它非常完整、维护良好且文档齐全。但是，由于 SOAP 协议固有的复杂性，要​​理解它可能有点复杂。以下说明应该可以帮助您入门。

在你必须加载模块之前：

use XML::Compile::SOAP11;
use XML::Compile::WSDL11;

那么第一步就是创建一个WSDL对象并加载WSDL文件：

my $wsdl = XML::Compile::WSDL11->new;
$wsdl->addWSDL($wsdl_file);

如果你的 WSDL 文件依赖于一些 XSD 文件，那么你必须先加载它们，在 WSDL 之前，调用：

$wsdl->importDefinitions($xsd_file);

请注意，出于安全原因，XML::Compile 永远不会尝试加载在线资源；您必须手动下载它们，然后从磁盘加载它们。

第二步是编译对象。这实际上将在对象中创建持久代码引用，您可以在之后重复调用以执行操作。您将目标服务的 url 作为参数传递给编译器。例如，以下调用编译所有可用的操作：

$wsdl->compileCalls( address => $url);

在编译时，您还可以传递自己的 HTTP 传输对象，而不是依赖 XML::Compile 默认值。当您想要对传输层进行细粒度控制（例如设置 HTTP 代理，...）时，这很有用。例如使用 LWP::UserAgent ：

my $ua = LWP::UserAgent->new( show_progress => 1 );
$wsdl->compileCalls( address => $self->url, user_agent => $ua );

现在您已准备好调用 Web 服务。您传递操作的名称和数据结构，如下所示：

my ( $answer, $trace ) = $wsdl->call( $ope, $data );

如果出现任何问题，调用就会终止。成功时，它返回一个 Perl 数据结构，该结构表示已解析的响应。就是这样！

XML::Compile 提供了很多有用的自省和调试方法。例如，编译后，您可以使用以下命令打印所有可用操作的列表：

$wsdl->printIndex;

显示给定操作的输入数据结构的详细信息：

$wsdl->explain( $ope, PERL => "INPUT", recurse => 1 );

在一个操作执行之后，trace对象可以用来获取很多关于事情如何发生的内部细节，例如：

$trace->printRequest;
$trace->printResponse;
$trace->printTimings;