3.3. Perl XML HTTP Post to a web service.

Example 3-3. Post a SOAP message with Perl.

This is a command-line example, you can use SAX to parse the response if you want to consume a simple remote procedure. Again, you can use a tool like TcpTunnelGui to have a template for the SOAP message, provided you have a working client running from your favorite platform or IDE.

#!/usr/bin/perl -w

use strict;

use LWP::UserAgent;
use HTTP::Request::Common;

my $userAgent = LWP::UserAgent->new(agent => 'perl post');

my $message = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
	<env:Envelope
	xmlns:ns0=\"http://phonedirlux.homeip.net/types\"
	xmlns:enc=\"http://schemas.xmlsoap.org/soap/encoding/\"
	xmlns:env=\"http://schemas.xmlsoap.org/soap/envelope/\">
	<env:Header/><env:Body>
		<ns0:readLS>
			<String_1>Post from Perl, your e-mail</String_1>
		</ns0:readLS>
	</env:Body>
</env:Envelope>";

my $response = $userAgent->request(POST 'http://www.pascalbotte.be/rcx-ws/rcx',
Content_Type => 'text/xml',
Content => $message);

print $response->error_as_HTML unless $response->is_success;

print $response->as_string;

Example 3-4. Post an XML file to a .NET web service with Perl.

#!/usr/bin/perl -w

use strict;

use LWP::UserAgent;
use HTTP::Request;

my $message = '<SOAP-ENV:Envelope
	 SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
	 xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"
	 xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance"
	 xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
	 xmlns:xsd="http://www.w3.org/1999/XMLSchema">
	 <SOAP-ENV:Body>
	 <Search xmlns="http://www.infobel.com/WebService/"><inputQuery>
	 <login>infobel</login>
	 <password>test</password>
	 <country>aeCountryBE</country>
	 <service>aeSrvStandard</service>
	 <Name>durand</Name>
	 <City>bruxelles</City>
	 <Zip></Zip>
	 <XCoord>0</XCoord>
	 <YCoord>0</YCoord>
	 <Range>0</Range>
	 <PageStep>5</PageStep>
	 <Language>aeLangFrench</Language>
	 <CoordType>aeCTWGS</CoordType>
	 </inputQuery></Search>
	 </SOAP-ENV:Body>
	 </SOAP-ENV:Envelope>';

my $userAgent = LWP::UserAgent->new();
my $request = HTTP::Request->new(POST => 'http://hal.kapitol.com/infobelservices/service1.asmx');
$request->header(SOAPAction => '"http://www.infobel.com/WebService/Search"');
$request->content($message);
$request->content_type("text/xml; charset=utf-8");
my $response = $userAgent->request($request);

if($response->code == 200) {
	print $response->as_string;
}
else {
	print $response->error_as_HTML;
}