用Perl调用SOAP服务

用Perl写了一段调用SOAP服务的代码。本来很简单的一个事情，研究了大概两天，主要还是对Perl不太熟。另外调用的这个SOAP服务比较奇怪，没有WSDL文件，也没有说明文档，我只是根据之前开发人员用Java写的一个例子改写的。

这里面有两个地方相对特殊，一是需要验证，二是直接将Soap消息（SOAP Envelop）发送给服务器端处理，具体代码如下：

 

use XML::Simple; use IO::File; use LWP::UserAgent; use HTTP::Request; use HTTP::Headers; open REQ,'<Req.xml'; my $input = ""; while (<REQ>) { chomp; $input = $input.$_."/n"; } #Generate HTTP Header my $h = HTTP::Headers->new(); $h->authorization_basic( $username,$password ); $h->header( SOAPAction => 'http://te<a href="/tag/mpu/" target="_blank" class="keywords">mpu</a>ri.org/Register' ); $h->content_type('text/xml;charset=utf-8'); #Generate Request,including method,address,header and so on my $request = HTTP::Request->new( POST,'http://address',$h ); $request->protocol('HTTP/1.0'); $request->content($input); #Post the request my $userAgent = LWP::UserAgent->new(); my $response = $userAgent->request($request); #print the result my %keys = %{$response}; foreach $key ( keys %keys ) { print $key,"=>",$keys{$key},"/n"; }